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EDITORIAL 


Un simulâcre d'interview est paru dans l'organe-officiel-de-l'ex-importateur-officiel-d'ORIC, j'ai nommé 
MICR'ORIC. Cette interview de M. Jean TAÏEB (directeur de publication de ladite revue) par... lui- 
même (ou un représentant de la revue) est cocasse ; jugez plutôt. 

D'abord, on y parle des "attaques virulentes de THEORIC et HEBDOGICIEL contre ASN". Nous 
n'avons jamais attaqué votre compétence commerciale, mais surtout la désinvolture avec laquelle 
ASN traitait ses clients. Bon nombre de lettres, dans le courrier reçu à la rédaction de THEORIC, 
sont là pour en témoigner. 

Nous ne manquons pas d'objectivité... ce qui ne semble pas être la cas d'ASN. Nous leur recon¬ 
naissons bien volontiers tous les mérites pour avoir fait connaître, et vendu en France plus de 100 000 
unités du micro que nous aimons tous. Nous ne contestons en rien cet état de fait ! 

Là où nous vous attaquions, c'était sur les délais, le SAV (il paraît que, maintenant, le SAV est 
au point et que ASN est en mesure de dépanner sur le champ tout possesseur d'ORIC), quant aux 
rapports avec la clientèle... Nos lecteurs-utilisateurs-revendeurs-consommateurs jugeront ! 

Si les ventes augmentent de façon considérable à chaque fois que l'on parle de l'importateur, nous 
avons le sentiment de faire aujourd'hui une bonne action : nous contribuons à faire diminuer les 
stocks d'ORIC ! 

Nous sommes pour la cohabitation. D'ailleurs, la revue est techniquement bonne, mais il faudrait 
être objectif et laisser à ceux qui sont indépendants, financièrement, de l'importateur le soin d'in¬ 
former les lecteurs : quand ASN dit que MSX tend à être le standard universel (parce que vous 
vendez du MSX), nous, on rigole : les MSX ont du mal à s'imposer... J'en veux pour preuve la 
braderie effectuée par certains revendeurs. 

Peut-être les MSX 2 ??? 

ASN, c'est aussi les composants électroniques, mais avec quelle politique ? Page 64 de votre revue, 
un bon de commande propose le 6502 (microprocesseur de l'ORIC) à 75 F. Vendus par deux, il 
en coûtera 190 F. Gag ? 

On ne peut pas vivre sur le passé... Le mérite d'ASN a été de faire connaître ORIC. La faute, de 
mal servir les utilisateurs et professionnels. 

Denis BONOMO 

__ Sylvio FAUREZ 
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vice sans égal ! Respectez simplement les horaires et les 
jours que nous vous indiquons : 

MERCREDI de 9 h à 12 h et de 14 h à 17 h. 
VENDREDI de 9 h à 12 h seulement. 

Tout appel en dehors de ces créneaux sera refoulé : ne' 
dépensez pas inutilement votre argent ! 

Le numéro : 99.52.98.IT. 
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DÉSIGNATION 


Qté 


- 30 F pour achats intérieurs a SOI) t 
Frais de Port — 50 F pour achats de 500 F a 1000F 

— 70 F pour achats supérieui a 1000 F 

Ci-joint un chèque de F. :_ 


Frais de Port : 


lOIAL 


LECTEUR DISQUETTES 
3,5 p 


Lecteur esclave 31/2 

Double têtes 

Double densité 

Alimentation 220 volts 

Cordon de raccord 

Compatible MICRODISC/JASMIN 2 

1990 F 


PAVÉ NUMÉRIQUE/ 
JOYSTICK 


I 4 touches (0 à 9), le point, 

DEC, FONCTION, ENTER. 

1 prise joystick 

(fonctionne sur les 4 flèches et la barre 
d espacement), compatibilité assurée sur 
75% des jeux. 


590 F 


TELESTRAT 


64 Ko de RAM (extensible) 
48 ko de ROM (extensible) 
CARTOUCHE HYPER BASIC 
CARTOUCHE TÉLÉMATIC 
Lecteur disquette 3 pouces 
Câbles, manuels 


3990 F 


NOUVEAUTÉS DISPONIBLES ET EN DÉMONSTRATION 


• TELESTRAT 64 K . 3990 F 

• ATMOS 48 K . 990 F 

• Moniteur couleur . 2750 F 

• Moniteur monochrome vert HR12 1150 F 

• Imprimante MCP40 plotter 

4 couleurs . 990 F 

• Imprimante BROTHER 1009 . 1995 F 

• Option picots BROTHER 1009 .. 350 F 

• Lecteur disquettes SEDORIC 

(maître) . 2490 F 

• Lecteur disquettes (auxiliaire) .... 1490 F 


ACCESSOIRES 

• Modulateur noir et blanc UHF 

• Modulateur couleur UHF . 

• Câble pour imprimante parallèle 

• Rouleau papier MCP 40 . 

• Rame papier imp. 80 (SOOF) .. 

• Bloc Oric 9 volts . 

• Joystick type Quickshot I .... 

• Disquette 3,5 pouces (MAXELL) . 


LOGICIELS 

NOUVEAU : T.B.D |5 utilitaires sur disquettes 
Sedovic) 

T.B.D - Transfert K7 vers disquettes 
CAT - Transfert TDOS vers Sedoric 
DTR - Dump mémoire en temps réel 
DD - Test piste défectueuse 
RTP - Répare une piste défectueuse 

+ de 70 titres en magasin 

ICV distributeur de la revue THEORIC 


+ 


IZARD Crealtons 99 31 64 73 
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Samuel FONTAYNE 
78 VIROFLAY 

Peut-on utiliser le Minitel en moni¬ 
teur au moyen de la carte décrite 
dans THEORIC, ou d'une autre 
carte ? 

Cette question nous a souvent 
été posée... La réponse est NON. 
On ne peut pas, sans ouvrir le 
Minitel et sans le modifier, ce qui, 
rappelons-le, est interdit, trans¬ 
former celui-ci en moniteur vidéo. 

Michel QUEINNEC 
36 FLERE LA RIVIERE 

A quand les disquettes Micro dise 
avec les programmes de THEO¬ 
RIC ? 

Nous espérions vous proposer 
très rapidement les disquettes de 
THEORIC en version MICRO- 
DISC, malheureusement il sem¬ 
blerait que le SEDORIC pose quel¬ 
ques problèmes (ou l'électronique 
du Microdisc) à ses concepteurs 
pour piloter un second drive 3” 
correctement. Dès que les problè¬ 
mes seront résolus, nous vous 
proposerons les disquettes. 
Rappelons toutefois que, dans 
90 % des cas, les possesseurs 
du Microdisc et du DOS VI peu¬ 
vent utiliser le programme de 
transfert publié dans THEORIC, 
assurant la lecture d'une dis¬ 
quette Jasmin sur MICRODISC. 
Une bonne solution d'attente ! 

Jacques BARBEAU 
44 MACHECOUL 

Je n'arrive pas à charger mes 
cassettes ni mes programmes sur 
disquettes quand le moniteur 
couleur est allumé... 


Hélas, ce problème est connu... 
Il est lié au rayonnement électro¬ 
magnétique du moniteur. Il 
n'existe pas de solution simple. 
Il faudrait que le moniteur soit 
blindé efficacement, et que ce 
blindage soit relié à la terre. Si 
vous êtes confronté à ce genre de 
difficulté, une seule solution : il 
faut éloigner au maximum le 
moniteur du magnétophone et du 
lecteur de disquettes. 

Rémi SOURNIA 
34 MONTPELLIER 

Pourriez-vous donner des préci¬ 
sions quant à la modification des 
ATMOS "ancienne génération" 
pour qu'ils fonctionnent avec le 
"Microdisc" ? 

Dans notre prochain numéro, 
nous vous donnerons les indica¬ 


tions nécessaires pour modifier, 
soi même, à condition d'être soi¬ 
gneux et suffisamment connais¬ 
seur en électronique, l'ATMOS et 
le Microdisc pour éviter de dépen¬ 
ser près de 600 F pour un 
échange standard peu justifié. 


Nous vous rappelons que le cour¬ 
rier est traité dans la revue quand 
il est "d'intérêt général". Si vous 
désirez une réponse personnelle, 
n'oubliez pas de joindre votre éti¬ 
quette d'abonné (découpée sur 
votre envoi personnel). Si vous 
n'êtes pas abonné , envoyez une 
enveloppe affranchie self- 
adressé, accompagnée obligatoi¬ 
rement du coupon correspon¬ 
dance découpé dans le dernier 
numéro de THEORIC. 


NOUVELLES 



facilement sur JASMIN que sur 
MICRODISC, va vous permettre 
de stocker vos programmes sur 
un support à la fois moins rare et 
moins cher, et tout aussi facile à 
manipuler que les disquettes 3”. 
Ces deux produits sont commer¬ 
cialisés par la société ICV qui 
répondra à vos questions impa¬ 
tientes au (1) 69.04.04.50. 

L'ATMOS 

"FULL COMPATIBLE PC" ! 

Ce n'est pas une blague, c'est 
possible. La société TRAN, 
concepteur du fameux lecteur de 
disquettes JASMIN pour ORIC/ 
ATMOS, étudie une carte électro¬ 
nique transformant votre ATMOS 


NOUVEAUTES 

Des nouveautés sur ORIC, ce 
n'est pas souvent que ça ârrive ! 
Nous avons le plaisir de vous 
annoncer la naissance... (vous 
connaissez cette formule !) de 
deux nouveaux périphériques : 

CALCULATOR : un pavé numé¬ 
rique qui va ravir tous ceux qui 
manipulent de longues séries de 
nombres et même... les autres 
car il intègre, en plus, une prise 
joystick. 

DRIVE 3" 1/2 : finie la pénurie des 
disquettes 3". Un drive 3"1 /2 en 
second lecteur, s'adaptant aussi 
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et votre JASMIN en un "FULL 
compatible PC”. En d'autres ter¬ 
mes, en branchant cette carte, 
dont nous ne connaissons pas 
encore le nom de baptême, der¬ 
rière votre lecteur de disquettes, 
JASMIN ou JASMIN 2, vous 
pourrez accéder aux milliers de 
logiciels disponibles sur IBM* PC 
et compatibles. 

C'est une très bonne nouvelle 
pour les possesseurs et futurs 
possesseurs d'ATMOS et de 
JASMIN. Cette ouverture vers le 
monde des logiciels profession¬ 
nels du standard IBM PC va don¬ 
ner un nouveau souffle à l'AT- 
MOS. Nous vous donnerons plus 
de détails dès que la société 
TRAN voudra bien nous en 
communiquer. 


IBM, ORIC, A TMOS, JASMIN sont des mar¬ 
ques déposées de IBM, ORIC ou de TRAN. 


L'INTEGRAL MANAGER 

C'est le nom de code d'un nou¬ 
vel ensemble distribué par la 
société TRAN. Cet ensemble 
complet comprend l'ordinateur 
ORIC-ATMOS, l'écran mono¬ 
chrome haute résolution 31 cm 
(ou 12”), l'imprimante JASMIN 
PRINTER de qualité courrier, le 
fameux lecteur JASMIN 2 double 
tête, double densité, 500 kilo- 
octets accompagné du système 
d'exploitation ultra-rapide FAST 
TDOS et du livre "Le TDOS et 
ses fichiers”, le tout est livré en 
plus avec l'ensemble des logiciels 
professionnels "MANAGER”, 
pour seulement 6790 F TTC. 
C'est le meilleur prix que nous 
connaissons pour les ensembles 
d'ordinateurs "prêt à brancher” 
de cette qualité. 

L'ensemble "MANAGER” com¬ 
prend les fameux logiciels : la 
base de fiches MULTIFICH, le 
traitement de texte français 
EASYTEXT, les feuilles de calcul 
JASMIN-CALC, du style VISI- 
CALC et le tout nouveau logiciel 
PLANNING. Les qualités et vertus 
des logiciels MULTIFICH, EASY¬ 
TEXT et CALC sont déjà bien 
connues (voir les autres numéros 
de THEORIC). Le nouveau PLAN¬ 
NING inclue un carnet de rendez- 
vous sur 6 mois et un carnet de 
1500 adresses. Chose peu 


nouvelles. 


commune : ce carnet de rendez- 
vous est perpétuel car la fenêtre 
temporelle de 6 mois se déplace 
automatiquement au fur et à 
mesure du temps. 

L'ensemble des logiciels MANA¬ 
GER est vendu aussi seul pour 
1490 F TTC et le PLANNING seul 
pour 590 F TTC_ 

L'INTEGRAL MANAGER est 
indiscutablement l'ensemble 


"prêt à brancher” le plus complet 
et le moins cher pour votre ges¬ 
tion. 

Pour pratiquer des prix compéti¬ 
tifs, TRAN accroît de plus en plus 
la vente en direct, évitant ainsi les 
marges concédées aux reven¬ 
deurs. 

Pour tous renseignements, 
contacter la société TRAN au 
94.21.19.68. 


ABONNEZ-VOUS 

voir page 10 


REEDITION 


M.LEVREL F6DTA 


INTERFACES 
POUR 
ORIC 1 




Prix : 50 F 
+ 10 % de port 


ATMOS 


Qd 

S 

# 
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ROBOTIQUE, I.A.O., AUTOMATISMES 

Pour rendre sen ORIC encore plus performant. 

BON DE COMMANDE 

Je désire recevoir."INTERFACES POUR ORIC-1 ET ATMOS" 

■ contre.F en chèque bancaire, CCP, mandat* à l'ordre des 

Editions SORACOM, La Haie de Pan, 35170 BRUZ. 

| Nom .Prénom . 

■ Adresse . 

Code Postal .Ville . 

| * Rayer les mentions inutiles. 


7 

















Un drive 3"1/2 pour ORIC. 


L a 3 pouces se fait rare ? Passez sur 3 pouces 1 12 ! C'est 
ce que vous propose la société ICV, avec son drive 
3"1/2, double tête, qui se monte en deuxième lecteur 
sur ORIC. Nous avons eu le plaisir de le tester. 


Pénurie réelle, spéculation des 
grossistes, toujours est-il que le 
marché de la disquette 3” est 
actuellement très perturbé. Il 
n'est pas étonnant, dans ce cas, 
que bon nombre d'utilisateurs 
d'ORIC cherchent à se tourner 
vers un autre standard de dis¬ 
quettes, au moins en second 
drive. 

Entre 5"1/4 et 3"1/2, les avis 
sont très partagés. La 5" 1/4 a 
l'avantage de son prix, très 
compétitif, la 3''1/2 a l'avantage 
d'être facile à manipuler : les dis¬ 
quettes sont rigides bien proté¬ 
gées dans leur enveloppe en plas¬ 
tique dur, et la fiabilité des lec¬ 
teurs 3''1/2 n'est plus à démon¬ 
trer... De plus, c'est un standard 
qui semble s'imposer à plus ou 
moins longue échéance. 


C'est pour toutes ces raisons que 
la société ICV vient de lancer sur 
le marché un 3''1/2 utilisable en 
second lecteur sur ORIC. 
L'exemplaire qui nous a été 
confié pour les tests se présente 
en boîtier métallique, à la fois 
résistant et élégant. La face avant 
ne portait ni nom, ni logo : ce 
pauvre drive n'a pas encore été 
baptisé ; il est vrai que c'était le 
pieds en caoutchouc et des ouïes 
de ventilation, sur le dessous et 
le dessus du boîtier assurent une 
le dessus du boîtier assurent une 
convection thermique convena¬ 
ble. L'alimentation 220 V est 
incorporée. Les dimensions de 
l'engin : 230 x 205 x 60 mm. Sur 
la face avant, 'outre le lecteur 
3" 1/2, on trouvera un inverseur 
marche/arrêt et une diode élec¬ 


troluminescente indiquant la mise 
sous tension. 

Vite, un tournevis cruciforme, 
pour visiter les entrailles de cette 
merveille. Du côté électronique 
de contrôle du disque, c'est du 
japonais. Aucune critique possi¬ 
ble. Du côté alimentation, c'est 
du français : pas de critique non 
plus car la réalisation est excel¬ 
lente. Le transformateur d'ali¬ 
mentation est fixé sur la face 
arrière, de même que les régula¬ 
teurs + 5 V et -l-1 2 V. Les con¬ 
densateurs de filtrage sont, 
comme cela se pratique dans l'in¬ 
dustrie, ligotés par un collier 
nylon. Une protection en plasti¬ 
que évite que la nappe ne soit 
blessée par le métal, à la sortie du 
boîtier. Rien que des détails ras¬ 
surants. 

Refermons la boîte pour mettre 
sous tension, après avoir établi la 
liaison avec l'ORIC. Signalons 
que ce drive existe aussi bien 
comme second lecteur pour le 
MICRODISC (sous contrôle du 
SEDORIC), que pour le JASMIN 
(sous contrôle du FT-DOS). 

Combien ça coûte ? Vite, dites- 
le nous, ne nous laissez pas 
attendre. OK, on vous le dit : 
1 990 F TTC et lorsque vous lirez 
ces lignes, les premières com¬ 
mandes pourront être honorées. 
Dès avril vous pourrez en ache¬ 
ter des pleins camions ! 

Pour obtenir davantage de rensei¬ 
gnements, appelez la société ICV 
au (1) 69.04.04.50. 
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Tous les programmes de THEORIC, groupés par deux numéros sur une disquette. Plus de perte de temps 
pour les taper... Existe pour le moment en JASMIN seulement. 


I Le prix : 135 F pour les abonnés (joindre impérativement l'étiquette), 165 F pour les autres. 

Avertissement : les programmes stockés sur ces disquettes sont tels que parus dans THEORIC. A vous de les 
adapter à vos besoins et au fonctionnement sur.disque lorsque nécessaire. 






N° 1 THEORIC n° 4 et 5 
N° 2 THEORIC n° 6 et 7 
N° 3 THEORIC n° 8 et 9 
N° 4 THEORIC n° 10 et 12 
N° 5 THEORIC n° 13 et 14 
N° 6 THEORIC n° 15 et 16 
N° HS THEORIC HORS SERIE 
(n° 11) 


VOLUME : TO 






L FTDOS3—2 
U SP 1ROGRA 
U TEST 
U DOUBLESP 
U CARSPEC 
U CHORAL 
U POULE 
U TRON1 
U TRONDATA 
U TRON2 
U O 1TRON 2 
U MUS I COR 1 


S 62 SECTORS 
S 6 SECTORS 
S 2 SECTORS 
S 7 SECTORS 
S 6 SECTORS 
S 19 SECTORS 
S 61 SECTORS 
S 30 SECTORS 
S 17 SECTORS 
S 4 SECTORS 
S 4 SECTORS 
S 66 SECTORS 


U CHARGHEX. 
L TO 

U EDITSECT 
U MOTEUR 
U SUISSE 
U JASDI SCO 
U GP100X2 
U GP1002NB 
U BYTESAT 
U BYTESOl 
U TRAHI RES 


S 11 SECTORS 
S 4 SECTORS 
S 15 SECTORS 
S 26 SECTORS 
S 81 SECTORS 
S 8 SECTORS 
S 16 SECTORS 
S 8 SECTORS 
S 3 SECTORS 
S 3 SECTORS 
S 19 SECTORS 


215 SECTORS FREE 
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BON DE COMMANDE 
DES DISQUETTES THEORIC 


Je commande les disquettes 1 2 3 4 5 HS 6 
Ci-joint : 135 F par disquette et mon étiquette abonné 
165 F par disquette car je ne suis pas abonné 


NOM . .Prénom 


Adresse 


Soit au total la somme de 
que ci-joint. 


F réglée par chè- 


Code Postal 


m 


■ 


















Vous-etes un passionné 
j do micro-informatique ? 





UN SERVEUR APRES 19 H 


Branchez vos MINITELS et appelez, entre 
19 h 00 et 08 h 00, le 99 . 57 . 90 . 37 . Si 
la messagerie vous tente, une boîte postale 
répondant au nom de TEO vous est ouverte. 
Tapez ENVOI. Pas de mot de passe... 
Encore ENVOI. Vous pouvez laisser un 
message avec vos impressions sur la revue ! 
N'oubliez pas... seulement après 19 h 00 ! 

théorie 



Vos propositions seront examinées avec soin, quelle 
que soit la présentation de votre manuscrit. Prenez 
contact avec M. Marcel LEJEUNE au 99 52.98.11. 

Collection Poche ou collection plus importante, nos 
collectipns sont réalisées avec une équipe de colla¬ 
borateurs compétents, aptes à vous aider et à vous 
conseiller. 


Editions SORACOM 

La Haie du Pan - 35170 BRUZ 
Tél.: 99.52.98.1 1 


ABONNEZ 

VOUS. #T 


VALABLE ” 

(attention : e ' ° 


f à ,-.rar. - SORAÇOW ' l 

.. de P«* n . 


Cl-\oint ^ sôiACONL. Le Hôte 0e 


Prénom 


iNOtA . 

Adresse 

kcode P° sta ' 


_ „ t 3 mois (un* _ _ 

6 mois • • • • ' Atropo» ltaine ’ ‘ o70 + 140 F I 

soRAcm 


Ville . 

Signature . 

.... »«'• ,oU ' 




85 F I 
160 F - 
270 Fl 
140 F, 





















théoric_ 


VITRNE DU LOGŒL 


"DIT... ? D'AC !" 
(BLEU-CIEL) 

Système Auteur 

Le logiciel en question 
va permettre à 
l'utilisateur de créer 
une batterie de tests 
de contrôle. Les 
questions posées 
pourront appeler des 
réponses précises ou 
être formulées sous la 
forme de QCM 
(Questionnaire à 
Choix Multiples). 

Ce système auteur va 
donc être à la base 
de l'élaboration d'un 
logiciel didactique, 
dans lequel il sera 
même permis 
d'insérer des pages 
de commentaires (qui 
serviront, en quelque 
sorte, de leçon). 

L'idée est originale et 
les maîtres d'école qui 
ne sont pas asphyxiés 
par THOMSON 



N_ 

pourront l'utiliser pour 
compléter leurs cours. 
Les options permises 
sont : confection du 
didacticiel (incluant 
question, réponse(s), 
écrans d'aide), 
modification, essai, 
sauvegarde, édition 
sur imprimante. 

La présentation est 
très correcte. Seul 
regret, nous ne le 
dirons jamais assez (!) 
pourquoi toujours ces 
PING et ZAP ? Ne 
peut-on pas s'en 
passer ? Nous aurions 
aimé, également, 
pouvoir sortir du 
questionnaire sans 
avoir à répondre à 
toutes les questions, 
et revenir ainsi au 
menu principal. 

Un logiciel à vocation 
didactique sur ORIC... 
ça méritait d'être 
souligné, il y en a peu 
de commercialisés ! 

"DAMBUSTER" 

(UK) 

Simulation 

Les briseurs de 
barrage, vous 
connaissez ? Ces as 
qui, aux commandes 
d'un bombardier, 
étaient capables de 
larguer leurs bombes 
à la surface d'un lac 
artificiel, pour que 
celle-ci, en 
rebondissant sur 
l'eau, détruise le 
barrage ? 

Nous voilà donc aux 
commandes d'un 





Lancaster avec, pour 
mission, la 
destruction de 3 
barrages protégés par 
un DCA énergique. 

Ce ne sera pas très 
facile, et les amateurs 
de simulation de vol 
trouveront quelque 
intérêt à ce jeu, 
malgré la simplicité 
des commandes... et 
du graphisme. 

La planche de bord 
supporte les 
instruments essentiels 
au pilotage de l'avion. 
Celui-ci s'effectue au 
joystick ou au clavier. 
A l'extérieur, vous 
pourrez voir la piste, 
l'horizon, les 
barrages. L'animation 


tout en étant 
relativement lente, est 
tout à fait 
acceptable. Un 
bruitage correct 
accompagne le vol. 
Les tirs de la DCA 
sont particulièrement 
bien rendus. 

Si vous êtes un as, 
vous pourrez tenter 
de regagner le terrain 
pour vous poser, 
après avoir détruit les 
barrages, mais gare 
aux montagnes, un 
coup d'œil fréquent 
sur la carte sera 
nécessaire. 

De réalisation 
correcte, ce logiciel 
est accompagné 
d'une notice en 
anglais. 
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c OnjÉcmQ? 


usiciens en herbe, à vos claviers ! Prenez la peine de 
/taper ce programme qui transformera votre ATMOS (ou 
ORIC-1) en orgue électronique. 


Alexandre HOUELLE 


L'appui sur plusieurs touches en 
même temps, provoque l'émis¬ 
sion simultanée de sons corres¬ 
pondants, dans la limite de 3 au 
maximum (le générateur sonore 
de l'ORIC ne disposant, en effet, 
que de 3 canaux indépendants). 
Voilà qui permet de composer 
des accords, voire même de jouer 
des morceaux de musique, puis¬ 
que le programme respecte l'em¬ 
placement des touches d'un véri¬ 
table piano. 

Un conseil utile : avant de tenter 
toute exécution, ne pas oublier de 
sauvegarder le programme sur la 
cassette, une simple erreur dans 
la saisie des DATA pouvant être 
fatale. ^ ^ 


Initialisation - 


1 REM 

2 REM 

3 REM T R I P H 0 N I E 

5 REM par Alex. HOUELLE 6.4.85 

9 REM 

10 REM 

100 REM —- 

110 REM -Initialisation- 

120 REM - 

121 REM 

122 TEXT:PAPER?:INK4 

123 P0KE618,10:GOSUB5000:PRINT 

125 PR1NTSPC(9);'VEUILLEZ PATIENTER' 
130 P0KE48242,12:H1MEM #3FD0 
.135 F0RT=#4100T0#4140 
140 P0KET, 0 : P0KET+#41,0 :NE XT 
150 RESTORE:FORT=0TO173:READF 
160 POKET+#4000,F :NEXT 
170 F0R0=0T03:F0RN=1T012:READF 
185 P0KE#4100+F,N:P0KE#4141+F,0 
190 NEXT:NEXT 

200 FORT=460B0T046087:P0KE296+T,62 

210 P0KE304+T,8:P0KE752+T,0 :NEX T 

260 POKE46390.55 

265 P0KE46391,0 

270 P0KE4683B, 63 

350 Al$=‘ : t X ! X 7. 7. ’ 


360 A2$="! ! ! ! 1 ! 1 " 

370 A3*=’& A & A & A & A & A & A & A ' 

380 A4$=Al$+LEFT$(Alt,7) 

390 A5 Î=A2Î+LEFT$(A2$,7) 

400 A6$=A3$+LEFT$(A3Î,7) 

410 A7$=A1Î+A1$+'!’ . 

420 AB$=A2$+A2$+"!" 

430 A9$=A3$+A3$+’&' 

1000 REM 

1005 REM - 

1010 REM-Présentation- 

1020 REM - 

1030 REM 
1100 G0SUB5000 
1105 PLAY0,0,0,0 
1120 P0KE618.il 

1130 INPUT’ Octave de base (de 0 a 3) ex:2 *;0 
1140 IF0<00R0>3THEN1130 
1150 P0KE#406,0 
1160 PRINT 

1170 INPUT' Volume ( de 0 a 15 ) ex:15 ';V 
1175 IFV<00RV>15THEN1170 
1180 P0KE#405,V 

1200 REM - 

1225 P0KE618.10 
1300 GÛSUB5000 

1320 PLOTS.6,'1 2 456 89 - = \* 

1330 PL0T5.il, 'ESC QWERTYUIÛPI ] DEL' 
1335 PL0T1O,15,‘S D G H J L 
1340 PL0T9,20,'Z X C V B N M , . 

1345 PL0T5,24,'Appuyé: sur 'CTRL’ pour arrêter' 
1350 PLOT6,07,A7$:PLOT6,08,A7Î 
1360 PLOT6,09,A8$:PLOT6,1D,A9$ 

1370 PL0T8,16,A4$:PL0T8,17,A4$ 

1380 PLOTS,18,A5$:PL0TB,19,A6$ 

1900 REM 

1910 REM - 

1920 REM - C'est parti - 

1930 REM - 

1940 REM 
2000 CALLtt4054 
2010 GOT01100 

4000 REM - 

5000 CLS:PRINT 

5010 PRINTSPCI13);'TRIPH0NIE' 

5020 PRINTSPCI 13);'-* 

5030 PRINT 
5040 RETURN 

19000 REM - 

19010 REM - Codes machine - 

19020 REM - 


#78,#A9,#40, 
#O4,#0D,#O2, 
#85,#71,#A9, 
#0E,#20,#90, 
#03,#A2,#04, 
#03,#29,#08, 
#E0,#03,#D0, 
#D0,#E4,#E6, 
#C9,#FF,#D0, 
#0A,#05,#70, 
#E8,#86,#71, 
#38,#20,#90, 
#01,#86,#75, 
#D0,#02,#58, 
#2A,#8E,#E1, 
#41,#41,#18, 
#02,#AD,#05, 
#02,#A9,#00, 
#CA,#CA,#D0, 
#00,#F0,#09, 
#00,#20,#90; 
#04,#D0,#B6, 
#0D,#05,#0E, 
#02,#09,#11, 
#2A,#2B,#1B, 
#15,#36,#06, 
#31,#01,#08, 
#3B,#14,#14, 


#8D,#0Q,#04, 
,#04,#A9,#00, 
#FE,#85,#72, 
#F5,#A0,#00, 
#CA,#D0,#FD, 
l #F0,#08,#20, 
l #01,#60,#C8, 
[ #70,#A5,#72, 
,#D0,#60,#98, 
,#A6,#71,#9D, 
,#60,#78,#A9, 
,#F5,#20,#00, 
, #BC,#FF,#03, 
,#60,#E9,#00, 
,#02,#3D,#E5, 
,#6D,#06,#04, 
,#04,#29,#0F, 
,#A2,#0B,#9D, 
l #F9,#20,#33, 
,#SA,#18,#69, 
#F5,#A6,#75, 
,#4C,#5C,#40 
#16,#37,#33, 
,#30,#28,#38, 
#2F,#3F,#2E, 
#0F,#17,#03, 
#10,#21,#39, 
,#14,#14,#14, 


#8D,#01 
#85,#70 
#AA,#A9 
#8C,#00 
#AD,#00 
#45,#40 
#C0,#08 
#38,#2A 
#0A,#OA 
#00,#04 
#07,#A2 
#40,#A2 
#C0,#14 
#41,#F0 
#02,#B9 
#8Ü,#E3 
#8D,#E7 
#E0,#02 
#FC,#A9 
#07,#A2 
#E8,#L0 

#13,#0A 
#29,#19 
#1E,#2D 
#32,#12 
#22,#1A 
#14,#14 


’ Adaptation du programme 

’ sur 1’ 0RIC-1 ;reecrire 


les lignes suivantes : 


’ 20030 DATA #0E,#20,#35,#F5, 

’ #A0,#00,#8C,#0O 

» 

’ 20110 DATA #38,#20,#35,#F5, 
’ #20,#00,#40, #A2 

J 

’ 20180 DATA #CA,#CA,#D0,#F9, 
' #20,#FE,#FE,#A9 

» 

’ 20200 DATA #00,#20,#35,#F5, 
’ #A6,#75,#E8,#E0 
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LES DISQUETTES DE 

théeric 



mu 

■■■■ 
!■■■ 
. ■■■ 

^ 1H 

W 

^ IB 


4BBBB 

iimi 

iiimi 


je parle, je chante, je joue de fa musique\ 
je sais le SYNTHEVOC / 


1(("MlMlfflU 1 


SYNTHETISEUR 

VOCAL 

pour 

OR/CATMOS 

Disponible aussi sur 
. 'AMSTRAD 

- SINCLAIR 

. COMMODORE 
. APPLE II 
. MSX 

- M05. T07. TO7/70, T09 
. NANO RESEAU 


Parle français sans accent ! P.V. maxi 550f. 


Les possibilités de ce synthétiseur vocal TECHN l-MUSIQUE sont 
multiples. A base de formants, celui-ci est programmable en basic par 
phonèmes, diphonèmes, mots, phrases. Utilise l'amplificateur audio de 
votre ordinateur. Sortie Jack ( 3,5 ) pour ampli ext. 

Etudes de langages à la demande, toütes langues. 

Livré avec Notice 

Logiciel phone 100 sur cassette comprenant 100 éléments 
phonétiques de base ( phonèmes, diphonèmes, triphonèmes ) 
vous permettant des applications vocales dans vos programmes. 


ENCEINTE ACCOUST/QUE + AMPLI 15 W_ 


_ P.V. maxi 110 f. 


BON DE COMMANDE 


LISTE REVENDEURS SUR DEMANDE 


Centre commercial rue Fontaine du Bac 
63000 CLERMONT FERRAND T3 26 21 04 


EDITIONS TOUS LOGICIELS DE QUALITE 
UTILISANT CE SYNTHETISEUR 


NOUS CONSULTER 


LES OBJETS FRACTALS 


A L'AFFICHE 

F ractals ? jamais entendu i Ouvrons alors le dictionnaire, 
et nous trouvons à peu près ceci : " FRACTALS : se dit 
d'un objet dont la forme est extrêmement irrégulière, 
fragmentée, quelle que soit l'échelle d'examen. La dimension 
fractale est un nombre qui sert à identifier le degré de 
fragmentation...". 


Mais, trouve-t-on de ces objets français Jean PERRIN en a donné* 
dans la nature, peut-on les réali- une description méticuleuse dans 
ser sur l'écran, ou s'agit-il seule- son livre "Les Atomes (1912)" : 
ment d'une imagination incon- "Incidemment, une telle figure, 
grue des mathématiciens ? ...., ne donne qu'une idée bien 

Vous avez sûrement entendu par- affaiblie du prodigieux enchevê- 
ler du fameux mouvement brôw- trement de la trajectoire réelle. Si, 
nien mis en évidence dans une en effet, on faisait des pointés en 
chambre claire. En voici un exem- des intervalles de temps 100 fois 
pie (voir figure 1 pour la trajec- plus rapprochés, chaque segment 
toire d'un grain). Le grand savant serait remplacé par un contour 


Wolfram LUTHER 


polygonal relativement aussi 
compliqué que le dessin entier, et 
ainsi de suite.... On fera des 
réflexions analogues pour toutes 
les propriétés qui, à notre échelle, 
semblent régulièrement conti¬ 
nues, telles que la vitesse, la 
pression, la température. Et nous 
les verrons devenir de plus en 
plus irrégulières, à mesure que 
nous augmenterons le grossisse¬ 
ment de l'image toujours impar¬ 
faite que nous nous faisons de 
l'Univers..." 

Nous allons étudier des objets 
moins irréguliers et revenons 
encore un peu en arrière. A la fin 
du dernier siècle, plusieurs 
mathématiciens se sont posé la 
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question de savoir si on peut 
trouver une application continue 
d'un intervalle sur une aire ou, 
autrement dit, s'il existe une 
courbe qui remplit tout un rectan¬ 
gle. 

Au début, il paraît impossible 
qu'une courbe, normalement 


puisse remplir (éventuellement à 
un certain degré) une surface 
associée à la dimension deux. 
Et pourtant, cela existe, et nous 
allons donner un exemple sur 
l'écran de notre ordinateur. Nous 
nous basons sur les travaux de G. 
PEANO (1890) revus et variés 



Fl (vor figure 2) qui comprend 
neuf segments SO à S8. 

Ensuite, nous remplaçons chaque 
segment par le même motif Fl, 
mais en trois fois plus petit. F2 
comprend donc 81 segments et 
est trois fois plus long que Fl. 
Vous pouvez imaginer qu'en réi¬ 
térant le procédé, on arrive à rem¬ 
plir toute une aire par la courbe 
F de longueur infinie. Nous nous 
arrêtons à l'approchée F4 ; F5 
allumerait déjà tous les pixels du 
carré (voir figure 4). 

A toute échelle, on constate une 
correspondance segment —carré 


associée à la dimension une, 



par F. M. DEKKING (1980). 

On comprend bien qu'on ne peut 
livrer qu'une idée approximative 
d'un object fractal F à cause de 
la définition limitée de l'écran 
HIRES. 

Pourtant, l'erreur relative de notre 
construction sera de l'ordre d'un 
pour cent, ce qui n'est pas si mal. 
Ainsi, nous commençons en des¬ 
sinant une première approchée 


selon la figure 3 ; en langage 
mathématique, cela veut dire 
qu'à chaque nombre de forme : 


oo 


y 

y, , a(i)e|0,1. 8j 


correspond une suite descen¬ 
dante de carrés emboîtés, créant 
le point sur la courbe F. 










seulement trois pour la ligne. 
Mais : 

9 = 312 = 3*3, 

d'où la dimension 2. 

Ce raisonnement nous livre une 
méthode pour créer des objets 
fractals d'une dimension com¬ 
prise entre un et deux : 


jet en question sera : 

D = log(9 - M)/log3. 

Nous donnons maintenant le pro¬ 
gramme qui affiche les objets 
fractals à l'écran et quelques 
échantillons (voir figures 4 - 9). 
Il faut introduire, en ligne 10, les 
numéros de segments à suppri¬ 
mer, par exemple 4, et pour ter¬ 
miner un 9. 

Afin de garantir une exécution 
rapide, nous avons placé les 
sous-routines en tête, faites donc 
un : 

RUN 10. 

Une dernière remarque : 

Si le sujet vous intéresse, consul¬ 
tez les deux livres de B. MAN¬ 
DELBROT sur les fractals. 


Comment arrive-t-on à la dimen¬ 
sion deux ? Eh bien, donnons une 
explication : 

Les segments SO, S4, S8 sont 
alignés, les autres segments ser¬ 
vent à remplir l'aire. On a donc, 
à chaque étape de la construc¬ 
tion, neuf segments contribuant 
au remplissage du carré, contre 


Figure 8 


10 DATA 2,5,8,9 


Dimension log 67log 3 


En se contentant de supprimer 
régulièrement un ou plusieurs 
segments SX ou cours de notre 
construction (voir figure 2a, 
SX = S4). 

Ayant supprimé M segments des 
neuf, nous arrivons à 9-M seg¬ 
ments effectuant le remplissage 
partiel de l'aire. 

Mais : 

9 - M = 3Î (log(9 - M)/log3), 
et la dimension fractale D de l'ob¬ 


Figure 9 


10 DATA 1,3,5,7,9, ÿ 


Figure 7 + * 

10 DATA 2,6,9 Dimension log 7/log 3 


Dimension log 5/log 3 


0 H=E ’ V=0 ^ RETIJRN W 

1 H=@ s V=-E < RETIJRN T 

2 H=-E ! V=0’RETURN 

3 H=0 = V=E : RETIJRN 

5 REM ST ART < RUN 10.; DESSIN F4 
10 DATA 4,3 ■REM NUMEROS DES SEGMENTS MA 
NOUANTS, 9 POUR TERMINER 
15 FORI=0TO8 = POKE1,9 ;NEXT 
20 HIRES ; DOKE#306,#FFFF 
30 READ D ; IFD=9 THEN 40 ELSEPQKED,D*GOT 
030 

35 REM MATRICE DES DIRECTIONS DU SEGMEN 
T X APRES ROTATION DE 14P 1/2 
40 FOR X=0 TO 8 STEP2 
50 FOR 1=0 TO 3 1 fi< I, X )«I *NEXT 1 NEXT 
60 FOR X=1 TO 7 STEF'6 
65 A 1 ' ü, X 1 1 A< 1 > y 2 ’ RC 2, X >=3 ! AC 3, X )= 
0 ;NEXT 

70 FOR X=3 T05 STEP2 

75 AC 0, X >= 3’AC1,X)= 0’RC2,X)= 1 ’ AC 3, X > 
=2 ^ NEXT 

80 AC 8, 4 .■'= 2 ’ RC 1,4 )= 3‘RC2,4>= O ’ AC 3,4 ; 


1 00 CORSET40,100,3 

110 E3=54’E2=18 ! E1=6’E0=2 1 E=0’REM ECHEL 
LE 

120 FOR Z3=0 TO 8 
130 U3=RC0,Z3> 

140 IF Z3 = F'EEKCZ3>THEN E =E3 1 G0SUBU3; 
CLJRMOVH, V, 3 > NEXT = GOTO300 
160 FOR Z2=0 TO 8 
170 IJ2=RCU3,Z2> 

180 IFZ2 = PEEKCZ2) THEN E =E2;G0SUBU2 
; CURMOVH, V, 3 ■■ NEXT ; NEXT 
200 FOR Z1=0 TO 8 
210 U1=RC U2,Z1) 

220 IF ZI = F'EEKC ZI >THEN E =E1 ' G0SUBU1 ; 
CURMOVH,V,3 ;NEXT = NEXT;NEXT 
240 FOR Z0i=0 TO 8 
250 U=RC U1, Z0 > '• E=E0 
260 GOSUB'IJ 

270 IF Z0 = PEEKCZ0JTHENCURMOVH,V,3ELSE 
DRAW H,V,1 

280 NEXT;NEXT;NEXT;NEXT 
30O DOKE#306,10000’END 






























LES PIEDS DANS LE PLAT 


C e mois-ci, nous vous proposons l'avant-dernière partie 
de FREDDY LEAPPY. Eh oui, ça se termine... Cela n'em¬ 
pêche pas que pour qû'il y ait de l'action, il faut un 
monstre pour vous poursuivre, et c'est l'objet de la routine 
SSN, que nous vous détaillons aujourd'hui. 


Si vous regardez l'organigramme 
et le listing (ce que j'espère bien), 
vous voyez la présence d'une 
routine CONVERT. Non, ce n'est 
pas une erreur du maquettiste, 
elle sert effectivement à conver¬ 
tir une coordonnée écran (EBCD3 
par exemple) en coordonnées de 
la forme X,Y (ici 8,19) afin de 
pouvoir comparer les coordon¬ 
nées de Freddy avec celles du 
monstre. Cette conversion a lieu 
dans les lignes 708 à 721. 

Les trois lignes qui suivent, bien 
que simples en apparence, ont 
une importance capitale. XFLAG 
sert à indiquer si on déjà effectué 
un déplacement en X, et NPAS 
sert à indiquer si l'on a déjà exé¬ 
cuté cette routine. Nous verrons 
plus tard leur importance de pre¬ 
mier ordre. 

La suite (lignes 722 à 770) est en 
revanche nettement plus simple. 
On teste si X (coordonnée de 
Freddy) et XM (coordonnée du 
monstre) sont égales. Dans ce 
cas, le monstre se déplacera ver- 
J ticalement, autrement, il se 
déplacera horizontalement. Le 
principe pour monter ou descen¬ 
dre, aller à droite ou à gauche est 
le même que pour le déplacement 
de Freddy. Reportez-vous donc à 
vos anciens numéros de TFIEO- 
RIC. 

La partie intéressante du pro¬ 
gramme reprend donc en ligne 
771. On regarde si la case sur 
laquelle va se déplacer le mons¬ 
tre contient le code de l'espace, 
c'est-à-dire 32. Si c'est le cas, on 
efface le monstre, ligne 797, on 
l'affiche à nouveau et on valide 
ses coordonnées. Notez qu'il n'y 
a pas besoin de charger l'accu¬ 
mulateur A avec 32, ceci a été 


fait en ligne 772. 

En lignes 775 à 779, on vérifie 
que la case n'est pas occupée par 
Freddy. Si malheureusement, elle 
l'est, alors c'est la mort de notre 


sympathique compagnon. Autre¬ 
ment on regarde si on l'a déjà 
déplacé en Y (XFLAG = 0). Si 
c'est le cas, le monstre est blo¬ 
qué. Autrement, on va essayer 
de le déplacer en Y (on vient d'es¬ 
sayer de le déplacer en X et ce 
n'est pas possible). Mais atten¬ 
tion ! si le monstre est bloqué 
dans un coin, la routine va bou¬ 
cler indéfiniment. D'où l'intérêt 
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de NPAS. S'il est à zéro, on 
essaye de faire un déplacement 
sur Y, autrement on considère 
que le monstre est définitivement 
bloqué. Nous restaurons donc 
ses coordonnéees à leur valeur 
initiale, et retournons au pro¬ 
gramme principal (lignes 792 à 
796). 

Les lignes 797 à 804 constituent 
la fin de la routine, et ne sont exé¬ 
cutées que si le déplacement est 
possible. Elles effacent puis réaf¬ 
fichent le monstre à sa nouvelle 
position. 

Voilà, le mois prochain, nous 
vous présenterons les dernières 
routines permettant de synchro¬ 
niser le tout, en y ajoutant quel¬ 
ques effets graphiques. 
REMARQUE ; Le mois dernier, 
nous nous étions arrêtés en ligne 
568 et nous reprenons en ligne 
665. Ne vous inquiétez pas, c'est 
volontaire... 



PARAMETRES D'ENTREE : adresse à conver¬ 
tir dans (L.H), L poids faible, H poids fort. 

En sortie, la mémoire X contient l'abscisse, 
la mémoire Y J'ordonnée. 


r 



5425 


665 

;************************** 

5454 

AD 

11 

4F 

694 

LDA RESL 

• 

5425 


666 


5457 

C9 

28 


695 

CMP #40 


5425 


667 

; SS/PGM C0NVERT QUI SERT 

5459 

B0 

E0 


696 

B CS <1 

• 

5425 


668 

; A CONVERTIR LES ADRESSES 

545B 

8D 

13 

4F 

697 

STA X 

5425 


669 

; DES CASES MEMOIRES ECRAN 

545E 

60 



698 

RTS 


5425 


670 

; EN 2 C00RD0NEES X ET Y 

' 545F 




699 

; *********** ******** ********* 

• 

5425 


671 

; EGALES A CELLES DU PLOT 

545F 




700 



5425 


672 

; SUR S0MTA 

545F 




701 

; SS/PGM SSN (SANS NOM), 

• 

5425 


673 


545F 




702 

: DANS LEQUEL ON APPREND A 


5425 


674 


545F 




703 

; DEPLACER DES MONSTRES DE LA 

• 

5425 

A9 00 

675 

C0NVERT LDA #0 

545F 




704 

; PIRE ESPECE, AFIN DE CORSER 

5427 

8D 14 4F 

676 

STA Y 

545F 




705 

;LE JEU. 


542A 

38 

677 

SEC 

545F 




706 

? 

• 

542E 

AD 15 4F 

678 

LDA L 

545F 




707 



542E 

E9 AB 

679 

SEC #$80+40 

545F 

A5 

06 


708 SSN LDA $6 

• 

5430 

8D 11 4F 

680 

STA RESL 

5461 

8D 

15 

4F 

709 

STA L 


5433 

AD 16 4F 

681 

LDA H 

5464 

A5 

07 


710 

LDA $7 

• 

5436 

E9 BB 

682 

SBC #$BB 

5466 

8D 

16 

4F 

711 

STA H 

5438 

8D 12 4F 

683 

STA RESH 

5469 

20 

25 

54 

712 

JSR C0NVERT 


543E 

Ll_ 

LU 

LU 

684 

>1 INC Y 

546C 

AD 

13 

4F 

713 

LDA X 

• 

543E 

38 

685 

SEC 

546F 

8D 

18 

4F 

714 

STA XM 


543F 

AD 11 4F 

686 

LDA RESL 

5472 

AD 

14 

4F 

715 

LDA Y 

• 

5442 

E9 28 

687 

SBC #40 

5475 

BD 

19 

4F 

716 

STA YM 

5444 

8D 11 4F 

688 

STA RESL 

5478 

A5 

02 


717 

LDA $2 


5447 

AD 12 4F 

689 

LDA RESH 

547A 

8D 

15 

4F 

718 

STA L 

• 

544A 

E9 00 

690 

SBC #00 

547D 

A5 

03 


719 

LDA $3 


544C 

BD 12 4F 

691 

STA RESH 

547F 

8D 

16 

4F 

720 

STA H 

• 

544F 

AD 12 4F 

692 

LDA RESH 

5482 

20 

25 

54 

721 

JSR C0NVERT 


5452 

D0 El 

693 

BNE <1 

5485 

A9 

00 


722 

LDA #0 
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• 

5487 

BD 17 4F 

723 

SIA XFLAG 

• 

54DE 

38 

764 >2 

SEC 


54BA 

8D IA 4F 

724 

STA NPAS 


54DC 

A5 06 

765 

LDA $6 

9 

548D 

AD 18 4F 

725 

LDA XM 

9 

54DE 

E9 28 

766 

SBC #40 


5490 

CD 13 4F 

726 

CMP X 


54E0 

85 06 

767 

STA $6 

9 

5493 

FO 2C 

727 

BEQ >1 

• 

54E2 

A5 07 

768 

LDA $7 


5495 

BO 15 

728 

BCS >2 


54E4 

E9 00 

769 

SBC #0 

A 

5497 

18 

729 

CLC 

A 

54E6 

85 07 

770 

STA il 

w 

5498 

A5 06 

730 

LDA *6 

W 

54E8 

A2 00 

771 >3 

LDX #00 


549A 

69 01 

731 

ADC #1 


54EA 

Al 06 

772 

LDA (06,X) 

• 

549C 

85 06 

732 

STA $6 

• 

54EC 

C9 20 

773 

CMP #32 


549E 

A5 07 

733 

LDA $7 


54EE 

F0 2F 

774 

BEQ >1 

• 

54A0 

69 00 

734 

ADC #0 

• 

54F0 

C9 64 

775 

CMP ’d’ 


54A2 

85 07 

735 

STA $7 


54F2 

D0 06 

776 

BNE >4 

A 

54A4 

A9 01 

736 

LDA #1 

A 

54F4 

A9 01 

777 

LDA #01 

9 

54A6 

8D 17 4F 

737 

STA XFLAG 


54F6 

8D El BF 

778 

STA SBFEl 


54A9 

18 

738 

CLC 


54F9 

60 

779 

RTS 

• 

5 4 AA 

90 3C 

739 

BCC >3 

• 

54FA 

AD 17 4F 

780 >4 

LDA XFLAG 


54AC 

38 

740 >2 

SEC 


54FD 

C9 01 

781 

CMP #1 


54AD 

A5 06 

741 

LDA $6 


54FF 

D0 15 

782 

BNE >4 


5 4 AF 

£9 01 

742 

SBC #1 

w 

5501 

AD IA 4F 

783 

LDA NPAS 

a 

54E1 

85 06 

743 

STA $6 


5504 

D0 10 

784 

BNE >4 

• 

54B3 

A5 07 

744 

LDA $7 

9 

5506 

A5 08 

785 

LDA 08 


54E5 

E9 00 

745 

SEC #0 


5508 

85 06 

786 

STA 06 

9 

54B7 

85 07 

746 

STA $7 

• 

550A 

A5 09 

787 

LDA 09 


54B9 

A9 01 

747 

LDA #1 


550C 

35 07 

788 

STA 07 

a 

54BB 

9D 17 4F 

748 

STA XFLAG 

a 

550E 

A9 01 

789 

LDA #1 

w 

54BE 

18 

'749 

CLC 

w 

5510 

8D IA 4F 

790 

STA NPAS 


54BF 

90 27 

750 

BCC >3 


5513 

4C Cl 54 

791 

JMP <1 

9 

54C1 

AD 19 4F 

751 >1 

LDA YM 

• 

5516 

A5 08 

792 >4 

LDA 08 


54C4 

CD 14 4F 

752 

CMP Y 


5518 

85 06 

793 

STA 06 

• 

54C7 

B0 12 

753 

BCS >2 

• 

551A 

A5 09 

794 

LDA 09 


54C9 

18 

754 

CLC 


551C 

85 07 

795 

STA 07 

A 

54CA 

A5 06 

755 

LDA $6 

A 

551E 

60 

796 

RTS 

9 

54CC 

69 28 

756 

ADC #40 


551F 

81 08 

797 >1 

STA (08,X) 


54CE 

85 06 

757 

STA $6 


5521 

AD 10 4F 

798 

LDA MONSTRE 

9 

54D0 

A5 07 

758 

LDA $7 

• 

5524 

81 06 

799 

STA (06,X) 


54D2 

69 00 

759 

ADC #0 


5526 

A5 06 

800 

LDA 6 

A 

54D4 

85 07 

760 

STA $7 

A 

5528 

85 08 

801 

STA B 


54D6 

A9 01 

761 

LDA #1 


552A 

A5 07 

802 

LDA 7 


54B8 

18 

762 

Cll- 


552C 

85 09 

803 

STA 9 

• 

54D9 

90 0D 

763 

BCC >3 

9 

552E 

60 

804 

RTS ■ 


CL AVIDACT de frappe ^ 

Pour savoir taper aussi bien que votre 
secrétaire... • éxercices, explications, 
test de niveau (azerty qwerty) ATM0S-M05 

DIALOGUE Si'ÏÜKS, ESI 

Creez votre réseau ORIC 1 et ATMOS ou 
par téléphone, radio,etc... jouez ou 
travaillez ensemble . logiciel et notice 

ELEPHORM-COLOR »!?.“. 

l’alcotest du programmeur 
a consommer a jeun_ATMOS 

DAMAEn” 

sauvegarde-gestion des règles_ATMOS 


_ -ÏUT&5S* 


**DIT..?D’AC! 



☆ NOUVEAUTES 

système auteur (Ï20 Fl 
toute matière 

Réalisez facilement vos questionnaires 
scolaires ou extra-scolaires édition sur 
imp., copies, modif., etc_ATMOS- MO 5 

CITE DE CRISTAL ^ 6 

Un bon archéologue ne doit perdre ni le 
fil de ses idées ni celui de ses recherches 
dans les 50000 ruelles_ATMOS - MO 5 

MEFIES-TOI DE MEPHISTO 

Rachetez votre âme, imprudemment vendue 
au diable... _ _ATMOS - MO 5 

®Ï£J 

= 80 ru» d»*'Fournier» 07500 GUILNERAND - tel. 75 40 4844 


réglement à la commande 
Port 15 Frs 


□ CLAVIDACT DDIALOGUE 
Nom --Prénom_ 


□ ELEPHORM DDAMAE □DIT..?D’AC ! dcite crital dmephisto ORIC O 

_Adresse _____ MOS O 


*** 

* * 
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A SUIVRE 



















U ne nouvelle chaîne rien que pour vous, pourquoi pas ? 
Si cela vous paraît être un doux rêve, sachez que vous 
pouvez vous offrir déjà la mire ! 

Tony GODFROY Celle-ci est sur le modèle de celle d'Antenne 2 mais rien ne 

vous empêche de la modifier pour épater vos amis et leur faire 
croire que vous avez déjà... la 8* chaîne ! 


0 CLS:PRINTCHRT(17):PRINT 

1 PRINT" ******************************** 

2 PRINT’* *" 

3 PRINT’* MIRE DE LA TELEVISION *” 

4 PRINT’* FRANÇAISE *’ 

5 PRINT’* *" 

6 PRINT’* 16/11/85 *’ 

7 PRINT’* par:GODFROY TONY *’ 

B PRINT’* surrATMOS *’ 

9 PRINT’*******************************’:WAIT500 

10 ’ - 

11 ’l FONCTION PAINT 1 

12 ’- 



14 D0KEI306,65535:HIKEM#95FF 

15 RE PEAT :READA$:A=VAL(’#’+A$):P0KE#9600+N,A:N=N+1:UNTILA$=’FIN":G0TÔ500 

20 DATAA9,OA,8D,36,96,8D,43,96,A9,2D,8D,94,96,A9,D2,8D.55,96,A9,A0,8D,54,96 

22 DATAAD,FC,FF,C9,2D,F0,17,A9,C5,80,36,96,80,43,96,A9.C8,BD,94,96,A9,D3 

24 0ATA8D,55,96,A9,36,8D,54,96,20,C5,D8,86,02,E0,GC,90,15,Eu,EF,B0,11 

26 DATA20,C5,D8,86,03,86,04,E0,00,90,06,E0,C7,B0,02,90,03,4C,36,D3 

30 DATAA9,00,85,05,80,E2,02,80,E4,02 

40 DATA8D,E6,02,85,08,85,0A,A9,01,80,E5,02,A9,A0,85,09,78 

50 DATAA6,02,E8,CA,86,02,E0,0B,F0,05,20,11,97,F0,F4.E8,86,02,49,00,85,06,85,07 

60 DATAA5,02,8D,El,02,A5,03,80,E3,02,20,CB,F0,A4,03,F0,22 

70 DATA88,84,04,20,11,97,F0,07,A9,00,85,06,18,90,13 



Une ligne téléphonique est à votre disposition, vous met¬ 
tant en contact direct avec la rédaction. Ceci est un ser¬ 
vice sans égal ! Respectez simplement les horaires et les 
jours que nous vous indiquons : 

MERCREDI de 9 h à 12 h et de 14 h à 17 h. 
VENDREDI de 9 h à 12 h seulement. 

Tout appel en dehors de ces créneaux, sera refoulé : ne 
dépensez pas inutilement votre argent ! 

Le numéro : 99.S2.98. II. 
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AVEZ-VOUS 
LA COLLECTION 
COMPLETE 
DE THEORIC ? 

Bon de commande page 3 



CARTE D'EXTENSION 
ORIC-I/ATMOS 



Nombreuses utilisations 

Cette carte permet le branchement de manettes 
de jeu fonctionnant avec absolument tous les 
logiciels existants ou à venir. 

Elle est très simple d'utilisation grâce à la matrice 
représentant le clavier. 

Ses connecteurs d'extension permettent de 
brancher différents matériels tels que : lecteur de 
disquettes, imprimante, carte RAM, carte 
REPROM (qui sortira prochainement), etc... 

Le prix unitaire est de 450,- F TTC 

-- 

BON DE COMMANDE à retourner à : ECSI, 23 rue Jean Giraudoux, 75116 PARIS. 
Je désire recevoir .... carte(s) d'extension. 

Participation aux frais de port : 30,- F. 

Nom . Ci-joint □ Chèque bancaire 

Adresse . □ CCP 

Code Postal.Ville. d'un montant de .F 
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£ 


’a chirologie et une science qui se propose de révéler 
votre personnalité, voire votre état de santé, par le sim¬ 
ple examen des lignes et monts de la main. 

Le propos de THEORIC n'est pas de vous convaincre de l'exac¬ 
titude de cette science, mais plutôt de vous offrir un pro¬ 
gramme original qui amusera certainement vos amis. 



Jean-Paul COCQUIO 


QUELQUES DETAILS 
SUR L'ARCHITECTURE 
DU PROGRAMME 

Lignes 3 à 355 

Présentation 

Lignes 360 à 409 

Entrée du nom, jour et mois de 

naissance du joueur, vérification 

de la possibilité d'existance de 

cette date (jour + mois). 

Lignes 410 à 670 

Calcul + édition du signe du 

zodiaque. 

Lignes 675 à 720 

Entrée de l'année de naissance 

du joueur. 

Lignes 721 à 897 
Vérification de la possibilité 
d'existence de cette date (jour + 
mois + année). 



Calcul du jour de naissance puis 
édition de ce jour. 

Lignes 900 à 1 320 

Edition du calendrier de l'année 

en question. 

Lignes 1325 à 1365 
Présentation chirologie. 

Lignes 1370 à 1 591 
Sous-programme qui dessine la 
main en HIRES. 

Lignes 1 595 à 3000 
Dessin des différentes lignes et 
sélection du caractère du person¬ 
nage suivant les réponses don¬ 
nées. Vérification de la confor¬ 
mité de la solution donnée. 


Lignes 3010 à 3071 
Présentation des monts de la 
main. 

Lignes 3080 à 4200 
Dessin de la main et des monts 
avec pokage des noms des 
monts et sélection du caractère 
du personnage suivant la réponse 
donnée (O/N). 

Lignes 4205 à 4240 



Edition du bilan du caractère du 
personnage. 

Lignes 4242 à 4490 
Présentation de l'espérance de 


vie. Vérification si 80<âge<15. 
Lignes 4500 à 5110 
Questions concernant l'espé¬ 
rance de vie. 

Lignes 5120 à 5210 
Edition de l'espérance de vie. 
Voulez-vous rejouer ? 

O -* RUN 390 
N - CALL DEEK ( # FFFC). 
Lignes 6000 à 6010 
Sous-programme pour l'affichage 
de "Répondez par oui ou non”. 
Lignes 6020 à 6030 
Sous-programme pour l'affichage 
de "Votre choix parmi les solu¬ 
tions". 



3 !- 

4 ’ LE DEVIN 

5 i- 

10 CLS 
20 PAPERO 
30 P0KE48035,0 
40 PRINTCHRtü?) 

50 M$=“ le devin" 

55 S$=" 

57 EXPLODE 
60 FOR 1=0 TO 15 

70 PRINTSI,10;CHR$(138);CHR$(133);M$ 

90 PR INT31,9 ;CHR$(138);CHR$(133);M$ 

100 WAIT10 

110 NEXT 

120 WAIT100 

130 CLS 

140 FOR 1=10 TO 2 STEP -1 
150 PRINT315,I;CHR$(138);CWR$(132);Mt 
.170 PRINT315,I-î;CHRt(138);CHR$(132); 
m 

175 NEXT 

180 WAIT100 

181 F0RI=1G TO 4 STEP—1 

182 PRINT315,I;CHR$(138);S$ 

183 PRINT315.I-l;CHRî(138);S$ 

184 WAIT20 

185 NEXT 
200 CLS 

210 PRINT315,2;CHR*(139);CHR$(129);M$ 


220 PRINT315,1 ;CHR$(138);CHR$(129);M$ 

225 WAIT150 

230 FOR 1=1 TO 12 

235 ZAP 

240 PRINT31,2;CHRï <138);CHR$(131);’*“ 
250 PRINT3I,1;CHRîi138);CHR$<131);**’ 
260 NEXT 

270 PRINT327,2 ;CHR»(138);CHR$(131) 5 1 * 

H 

280 PRINT327,1 ;CHR$(138);CHR$(131);’* 

■ 

285 WAIT200 

286 PING 

290 PRINT35,7;CHR$(132);"astrologie" 

295 WAIT150 

296 PING 

300 PR1NT35,9;CHR$<130);“calendrier p 
erpetuel" 

305 WAIT150 

306 PING 

310 PRINT35,11;CHR$(133);"chirologie" 

315 WAIT150 

316 PING 

320 PRINT35,13;CHR$(134);"esperance d 
e vie" 

330 WAIT150 

340 PRINT313,17;CHR$(135);CHR$(140);" 
logiciel 1985" 

341 FOR J=4 TO 1 STEP-1 

342 FOR 0=0 TO 6 


343 FOR N=1 TO 12 STEP J 

344 MUSIC 1,0,N,10 

345 MUSIC 2,0,N,10 

346 MUSIC 3,0,N,10 

347 NEXT:NEXT:NEXT 

348 PLAY 0,0,0,0 

349 SHOOT 

350 PRINT30,24 ;CHR*(142);CHR*(131); SP 
C(8);"APPUYEZ SUR UNE TOUCHE" 

355 PRINT30,23;CHR$(142);CHR$(131);SP 
C(8);"APPUYEZ SUR UNE TOUCHE" 

360 GETA$ 

365 FOR 0=0 TO 6 
370 FOR N=1 T0 12 
375 MUSIC 1,0,N,10 
380 NEXT:NEXT 
385 PLAY 0,0,0,0 
390 CLS 

392 PRINTCHR*(17):INK7:PAPER4 

393 PRINT:PRINT:PRINT:PRINT:PRINT 

395 INPUT'votre nom ";N$ 

396 CLS 

397 PRINT32,5;CHR$(129);N$;"," 

400 PRINT32,7;"votre jour de naissanc 
e(2 chiffres)" 

402 INPUT E:CLS 

403 IF E>31 OR E<1 THEN 400 

404 PRINT32,5;CHR$(129);N$;"," 

405 PRINTS2,7;"votre mois de naissanc 
e(2 chiffres)" 
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406 ÎNPUT F:CL5:PRINTCHR$(17) 

407 IF F=2 AND E>29 THEN 392 

408 IF F=4 AND E>30 OR F=6 AND E>30 0 
R F=9 AND E>30 OR F=ll AND E>30 THEN 3 
92 

409 IF F>12 THEN 392 

410 >- 

411 ’ASTROLOGIE 

412 ’- 

640 CLS 

642 IF F=1 AND E>19 OR F=2 AND E<20 T 
HEN A$='VERSEAU" 

644 IF F=2 AND E>19 OR F=3 AND E<21T 
HEN A$=‘POISSONS' 

646 IF F=3 AND E>20 OR F=4 AND E<21 T 
HEN A$="BELIER" 

648 IF F=4 AND E>19 OR F=5 AND E<21 T 
HEN A*="TAUREAU" 

650 IF F=5 AND E>20 OR F=6 AND E<21 T 
HEN A$=*GEMEAUX* 

652 IF F=6 AND E>20 OR F=7 AND E<22 T 
HEN A$=*CANCER' 

654 IF F=7 AND E>21 OR F=8 AND E<23 T 
HEN A$="LION' 

656 IF F=8 AND E>22 OR F=9 AND E<23 T 
HEN A$= B VIERGE' 

658 IF F=9 AND E>22 OR F=10 AND E<23 
THEN A$=*BALANCE" 

660 IF F=10 AND E>22 OR F=U AND E<22 
THEN A$='SCORPION" 

662 IF F=ll AND E>21 OR F=12 AND E<23 
THEN A$=“SAGITAIRE' 

664 IF F=12 AND E>22 OR F=1 AND E<20 
THEN A$="CAPRICORNE" 

666 PRINT815,2;CHR$(130);CHR$(138);"A 
STROLOGIE" 

667 PRINT315,1;CHR$(131);CHR$(138);"A 
STROLOGIE' 

668 PING 

670 PRINT81,13 ;CHR$(148);CHR*(133);'v 
otre signe: ';CHR$<129);A$ 

675 »- 

680 'ASTROLOGIE(suite) 

690 ’- 

700 WAIT250:PRINTCHR$U7) 

705 CLS:PAPER4:INK1 

707 PRINT:PRINT:PRINT: PRINT: PRIL4T 

710 PRINT32,5;CHR$(134);A$;",' 

715 PRINT32,7;*entrez maintenant votr 
e annee de " 

716 PRINT32,8;'naissance sous la form 
e(aaaa)' 

720 INPUT G 

721 U=G 

725 IF F=2 AND E=29 AND INT(G/4)OS/4 
THEN PRINT'cette date n’existe pas" 

726 IF F=2 AND E=29 AND INT(G/4)OG/4 
THEN 720 

750 IF F>2 THEN 770 
760 F=F+12:G=G-1 


770 Z=INT(G/100) 

780 Y=INT<Z/4) 

790 E=Y-Z+E 
800 F=(F—1)*367 
810 E=E+(1/367) 

820 F=(F+5)/12 
830 E=E+INT(F) 

840 6=(S+4712)*365.25 
850 E=((E+1NT(G))—1720977)/7 
860 W=INT<(E-INT(E))*7) 

865 IF W=0 THEN J*="DIMANCHE" 

866 IF W=1 THEN J$="LUNDI* 

867 IF W=2 THEN Jî="MARDI" 

868 IF W=3 THEN J$=*MERCREDI" 

869 IF W=4 THEN J*="JEUDI" 

870 IF 14=5 THEN J$='VENDREDI“ 

880 IF W=6 THEN J$="SAMEDI" 

885 CLS 

890 PRINT315,2 ;CHR$(131);CHR$(138);"a 
strologie" 

891 PRINT315,1;CHR$(130);CHR$(138);"a 
strologie' 

893 PING 

895 PRINT31,13;CHR$(134);"votre jour 
de naissance: ";CHR$(128);J$ 

896 PRINTCHR$(17) 

897 WAIT250 

900 CLS 

901 ’- 

902 'CALENDRIER 

903 ’- 

905 PAPER1:INK7 

910 PRINT35,10;CHR$(138);CHR$(130);"c 
alendrier de l’annee ";U 

911 PRINT35,9;CHR$(138);CHR$(131);*ca 
lendrier de l’annee ";U 

915 WAIT250:CLS 
930 DIM M(12) 

940 B=0 

950 M(1)=31:M(2)=28:M(3)=31:M(4)=30:M 
(5)=31:M(6)=30 

960 M(7)=31 :M(8)=31:M(9)=30:M(10)=31: 
M!11)=30:M(12)=31 
970 U=U-(INT(U/100)*100) 

9B0 IF U>99 THEN 390 
1110 M=(U*365)+INTi(U-l)/4) 

1120 IF U=0 THEN MOO 
1130 Y=M-(7*INT(M/7))+l 
1140 IF INT(U/4)OU/4 THEN 1170 
1150 IF U=0 THEN 1170 
1160 B=1 

1170 FOR 1=1 TO 12 
1180 N=M(I) 

1190 IF 102 THEN 1211 
1200 IF BOl THEN 1211 

1210 N=29 

1211 IF 1=1 THEN 1$='janvier" 

1212 IF 1=2 THEN I*="fevrier" 

1213 IF 1=3 THEN Iî='mars ' 

1214 IF 1=4 THEN I$="avril 8 


1215 IF 1=5 THEN I$='it.ai 

1216 IF 1=6 THEN I$='juin " 

1217 IF 1=7 THEN 1$='juillet" 

1218 IF 1=8 THEN I$="aout " 

1219 IF 1=9 THEN I$="septembre' 

1220 IF 1=10 THEN I$=“octobre ' 

1221 IF 1=11 THEN I$='novembre ' 

1222 IF 1=12 THEN 1$='décembre ' 

1225 PRINT TAB(10);CHRt(130);I$ 

1226 PRINT:PRINT 
1228 INKO 

1230 PRINT CHR*<132);" L M M 
J V S D' 

1235 PRINT:PRINT 
1240 FOR K=1 TO N 
1250 PRINTTAB(Y*4);K; 

1260 Y=Y+1 

1270 IF Y<8 THEN 1300 
1280 PRINT:PRINT 
1290 Y=1 
1300 NEXT K 

1310 PRINT:PRINT:PRINT:PRINT:PRINT:PR 
INT:PRINT 

1312 PRINT;CHR$(135);"appuyer sur une 
touche" 

1315 GET S$:PING 

1316 PRINT:PRINT:PRINT:PRINT:PRINT:PR 
INT :PRINT 

1320 NEXT I 

1325 ’- 

1326 ’CHIROLOGIE 

1327 ’- 

1330 CLS 

1340 PAPER0:INK2 
1345 PING 

1350 PRINT315,5;CHR$(138);CHR$(132);" 
chirologie" 

1351 PRINT315,6;CHR$(138);CHR$(129);" 
chirologie" 

1355 WÀIT200 

1357 PRINT:PRINT:PRINT:PRINT 

1358 PRINT'La CHIROLOGIE est une scie 
nce qui';SPC(5);"repose sur l’etude de 

s" 

1360 PRINT"lignes et des reliefs de 1 
a main* 

1365 PRINT*comme révélateurs de la pe 
rsonnalite et de l’etat de santé." 

1366 GETPP$:CLS 

1367 PRINT312,9;CHR$(138);CHR$(144);C 
HR$(129);'ligne de vie’ 

1368 PRINT312,10;CHR$(138);CHR$(144); 
CHR$(132);"ligne de vie" 

1369 PRINT35,15:"vous devrez selectio 
nner [1,2 ou3] 

1370 WAIT350:PAPERO: INK7: : HIRES: PAPE R 
4:1NK7 

1420 PRINTCHR$(17) 

1500 CURSET90,180,1 
1510 FOR 1=1 TO 49 
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1520 READ C.D 
1530 DRAW C, D, 1 
1540 NEXT 

1550 DATA -9,-20,-4,-7,-4,-10,-23,-30 
,-1,-3,1,-3,5,-2,8,2,7,4,13,18,10,2,2, 
_2 

1560 DATA8,-34,3,-70,3,-7,8,1,2,8,2,6 
0,2,5,3,0,2,-4,21,-67,4,-4,7,1,1,7,-11 
,39 

1570 DATA-3,19,0,6,5,0,27,-58 
1580 DATA2,-3,6,3,1,5,-19,50,-9,16,2, 
5,4,2,4,-3 

1590 DATA20,-28,4,0,3,5,-2,6,-15,28,- 
10,19,-5,19,-2,19,0,10,-73,0,0,-3 

1591 RESTORE 
1595 V=I 

1600 POKE 49100,49 
1610 CURSET98,115,1 
1620 DRAW7,0,V 
1630 DRAW50,6Q, V 
1640 IF 9=0 THEN 1643 

1645 GETP$ 

1646 V=0:GOT01610 
1648 V=1 

1650 CURSET98,115,1 
1680 POKE 49100,50:INK5 
1690 CURSET98,115,1 
1700 DRAW12,20,V 
1710 DRAWO,15,V 
1720 DRAW-19,27,V 

1730 IF V=0 THEN 1738 

1731 GETP$ 

1732 V=0:GOTO1690 
1738 V=î 

1740 CURSET98,115,1 
1780 POKE 49100,51 :INK2 
1790 CURSET98,115,1 
1800 DRAW20,14,1 
1810 DRAW9,15,1 
1820 DRAWO, 13,1 
1330 DRAW-30,16,1 
1840 GETP$ 

1850 TEXT:PAPERA:PRINT CHRî(17):P0KE4 
8035,0 

1870 PRINT'Voulez-vous revoir les tro 
15 lignes de vie 7 (O/N) 

1880GET Zî 

1890 IF Z$=“0”THEN PRINT'PATIENTER" 

1891 IF Z$="0' THEN 1370 

1900 PRINT'Quel est votre choix ?C1,2 
ou 3] 

1910 INPUTA 

1911 IF A<1 OR A>3 THEN 1910 

1920 IF A=1 THEN A*=*Vivacite,amour d 
e l'aventure" 

1930 IF A=2 THEN A$=*Personnalité fro 
ide et eqoiste" 

1940 IF A=3 THEN A$=‘Chaleur humaine 
et energie" 

1950 CLS:PAPERO 


1960 PRINT812,10;CHR$(13B);CHR$(130); 
'ligne de destin’ 

1970 PRINT312,9;CHR$(138);CHR$(131);' 
liqne de destin' 

1980 WAIT250:PAPERO:INK7:HIRES :PAPER4 
1985 PRINTCHR*<17) 

1990 CURSET90,180,1 
2000 FOR 1=1 TO 49 
2010 READJ,K 
2020 DRAWJ,K,1 
2030 NEXT 

2040 CURSET125,95,1 

2050 DRAW30,75,1 

2060 P0KE49100,49 

2070 GETP$:POKE49100,50:INK5 

2080 CURSET125,95,0 

2090 DRAW30,75,0 

2100 CU RSET155,95,1 

2110 DRAW—50,75,1 

2120 GET P$:P0KE49100,51:1NK2 

2130 CURSET155,95,0 

2140 DRAW-50,75,0 

2150 CURSET140,90,1 

2160 DRAW-10,80,1 

2169 GETP$:TEXT:PAPER4:PRINTCHR$(17) : 
P0KE48035,0 

2170 PRINT'Voulez-vous revoir les lig 
nés de';SPC(6);'destin ?(0/N)' 

21BO GETZ$:RESTORE 

2190 IF Z$="0'THEN PRINT'PATIENTER' 

2200 IF Z$="0'THEN 1980 

2210 PRINT'Quel est votre choix ?C1,2 

ou 31 

2220 INPUT B 

2225 IF B<1 OR B>3 THEN2220 
2230 IF B=1 THEN B$='Amour de l'indep 
en dan ce' 

2240 IF B=2 THEN B$="Attachement aux 
traditions” 

2250 IF B=3 THEN B$='Sens du devoir' 
2260 CLS:PAPERO 

2270 PRINT311,10;CHR*(133);CHR$<130); 
'liqne de coeur' 

2271 PRINT311,9;CHRt(138);CHR$(131)j' 
liqne de coeur' 

2275 WAIT250: PAPE RO: INK7: HI RES : PAPE R4 
:PRINTCHR$(17) 

2280 CURSET90,180,1 
2290 FOR 1=1 TO 49 
2300 READJ,K 
2310 DRAWJ,K,1 
2320 NEXT 

2330 CURSET177,122,1 

2340 DRAW—76,—15,1 

2350 POKE 49100,49 

2360 GETP$:INK5 

2370 CURSET177,122,1 

2380 DRAW—76,—15,0 

2390 CURSET177,122,1 :P0KE491ÜÜ, 50 

2400 DRAW-20,-8,1 


2410 DRAW-20,-20,1 
2420 GETP$:INK2 

2430 CURSET177,122,1 :P0KE49100,51 

2440 DRAW-20,-8,0 

2450 DRAW-20,-20,0 

2460 CURSET177,122,1 

2470 DRAW-30,-8,1 

2480 DRAW-35,-20,1 

2490 GETP« 

2500 TEXT:PAPER4:PRINTCHRt(17):P0KE48 
035,0 

2510 PRINT'Voulez-vous revoir les tro 
is lignes de coeur?(0./N) 

2515’ RESTORE 
2520 GETZi 

2530 IF Z$='0' THEN PRINT'PATIENTER* 
2540 IF Z$='0' THEN 2275 
2550 PRINT'Quel est votre choix ?C1,2 
,ou33 

2560 INPUT C 

2570 IF C<1 OR 03 THEN 2560 

2580 IF C=1 THEN C$='Genie autant que 

folie’ 

2590 IF C=2 THEN C$=“Grande profondeu 
r de sentiment' 

2600 IF C=3 THEN C$='Fort tempérament 
en amour’ 

2610 CLS:PAPERO:P0KE48035,0 

2620 PRINT317,10;CHR$(138);CHR$(131); 
'ligne' 

2621 PRINT317,9;CHR$(I38);CHR$(130);' 
ligne' 

2630 PRINT313,14 ;CHR$(138);CHR$(130) ; 
'd’intelligence" 

2631 PRINT313,13;CHR$(138);CHR$(131 ) ; 
'd’intelligence" 

2640 WAIT250:1NK7:PAPERO: HI RES :PAPER4 
:PRINTCHR$(17) 

2650 CURSET90,180,1 

2660 FOR 1=1 TO 49 

2670 RE AD J, K Jtt 

2680 DRAW J, K, 1 S JHl 

2710 POKE49100.49 
2720 CURSET 102,100,1 
2730 DRAW55,30, V 


CURSET118,109, V 
DRAW30,40,V 
IF V=0 THEN 2780 
6ETP$ 

V=0:G0T02720 
POKE 49100,50:INK5 
CURSET102,100,1 
DRAW40,23,1 
DRAW15,15,1 
GETP$ 

CURSET102,100,1 
DRAW40,23,0 
DRAW15,15,0 
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2860 P0KE49100,5 i : INK2 
2870 CURSET102,100,1 
2880 DRAW68.35,1 
2890 5ETP$ 

2900 TEXT: PAFEP4: PRINTC-HR*< 17) :P0KE4B 
035,0 

2910 PRINT"Voulez-vous revoir les tro 
is lignes d’intelligence ?<0/N) 

2920 GETZ*: RESTORE 

2930 IF Z$=*0* THEN PRINT*PATIENTER’ 
2940 ÎF Z*=*0* THEN 2640 
2950 PRINT'Quel est votre choix ?C1,2 
,ou3I 

2960 INPUT 0 

2970 ÏF 0<1 OR 0>3 THEN 2960 
2980 IF 0=1 THEN 0$=’Esprit mais vers 
atilite* 

2990 IF 0=2 THEN 0$="Attention aux il 
lusions* 

3000 IF 0=3 THEN 0$=‘Realisme et logi 
Que’ 

3010 CLS:PAPER0:INK2 

3020 PRINT317,7 ;CHR$(138);CHR*(129);" 
les monts* 

3021 PRINT317,8;CHR$(138);CHR$(132) 
les monts* 

3030 PRINT319,11;CHR$(138);CHR$i132) ; 
“de la* 

3031 PRINT819,12;CHR$<138;;CHR$(129); 
*de la* 

3040 PRINT319,15;CHR$(138);CHR*(129); 
'main* 

3041 PRINT819,16;CHRî(138);CHR$(132); 
'main* 

3050 WAIT250:CLS 

3060 PRINT"Les lignes palmaires nous 
indiquent les routes que nous pourro 
ns* 

3061 PRINT"emprunter au cours de notr 
e vie,tandisque les monts nous revelen 
t les* 

3062 PRINT'sources d’energie dont nou 
s pourrons disposer dans le meme temp 

s. ' 

3070 PRINT:PRINT:PRINT;CHRS(132)ï“Si 
ces monts sont développes-) [03* 

3071 PRINT:PRINT:PRINT;CHR$(132);"Si 
ces monts sont inexistants-) [NI* 

3080 GETPPî 

3090 CLS:PAPER0:1NK1 : HI RES:PAPER0:1NK 
2:PRINTCHR$(17) 

3100 CURSET90,180,1 
3110 FOR 1=1 TO 49 
3120 READJ,K 
3130 DRAWJ,K,1 
3140 NEXT 

3160 P0KE 49095,77 
3170 POKE 49096,79 
3180 POKE 49097,^8 
3190 POKE 490°8,84 


3200 POKE 49100,68 

3210 POKE 49101,69 

3220 POKE 49103,86 

3230 POKE 49104,69 

3240 POKE 49105,78 

3250 POKE 49106,85 

3260 POKE 49107,83 

3270 CURSET95,155,0 

3280 CHAR96,0,1 

3290 GETH$:E$=*Peu sensuel* 

3300 IF H$=*0“THENE$=*Vitalité,goût d 
u bien vivre et de sensualité* 

3310 CHAR96,0,0 
3320 P0KE49103.77 
3330 POKE49104,65 
3340 P0KE49105,82 
3350 P0KE49106,83 
3360 P0KE49107,40 
3370 P0KE49108,112 
3380 P0KE49109,101 
3390 P0KE49110,116 
3400 P0KE49111,105 
3410 POKE49112,116 
3420 P0KE49113,41 
3430 CURSET100,120,0 
3440 CHAR96,0,1 
3450 GETH$:F$=*Craintif* 

3460 IF H$=*0* THEN F*=*Courageux,bat 
ailleur* 

3470 CHAR96,0,0 
3480 P0KE49103,74 
3490 P0KE49104,85 
3500 P0KE49105,80 
3510 P0KE49106,73 
3520 P0KE49107,84 
3530 P0KE49108,69 
3540 P0KE49109,82 
3550 FOR X=49110 TO 49113 
3560 POKE X,32 
3570 NEXT 

3580 CURSET107,95,0 
3590 CHAR96,0,1 

3600 GETH$:G$=*Simple,peu ambitieux* 
3610 IF H$=*0* THEN GS=*Orgueilleux,f 
ort en affaires,concient* 

3620 CHAR96,0,0 
3630 P0KE49103,83 
3640 P0KE49104,65 
3650 P0KE49105,84 
3660 P0KE49106,85 
3670 P0KE49107.82 
3680 P0KE49108.78 
3690 P0KE49109.69 
3700 CURSET135,90,0 
3710 CHAR96,0,1 

3720 GETH$:II$="Tendance a fuir certa 
ines responsabi- lites* 

3730 IF H$=*0* THEN11$= *Serieux,respo 
nsable* 

3740 CHAR96,0,0 


3750 P0KE49101,85 
3760 P0KE49104,79 
3770 P0KE49105,76 
3780 P0KE49106,69 
3790 P0KE49107,73 
3800 P0KE49108,76 
3B05 P0KE49109,32 
3810 CURSET150,95,0 
3820 CHAR96,0,1 
3830 GETH$ 

3840 IF H$=*0* THENJJ$=“Sens de la be 
aute,tendance artistique* 

3850 CHAR96,0,0 
3860 P0KE49101,69 
3870 P0KE49103,77 
3880 P0KE49104,69 
3890 P0KE49105.82 
3900 P0KE49106,67 
3910 P0KE49107,85 
3920 P0KE49108,82 
3930 P0KE49109,69 
3940 CURSET165,115,0 
3950 CHAR96,0,1 

3960 GETH$:K$=*Pas toujours convainqu 
ant* 

3970 IF H$=*0* THEN K$=*Sens critique 
,prudent,éloquent* 

3980 CHAR96,0,0 
3990 P0KE49104,65 
4000 P0KE49105,82 
4010 P0KE49106,83 
4020 FOR X=49107 TO 49109 
4030 POKEX,32 
4040 NEXT 

4050 CURSET160,135,0 
4060 CHAR96,0,1 
4070 GETHi 

4080 IF H$=*0* THEN L$=*Force physiqu 
e et morale* 

4090 CHAR96,0,0 
4100 POKE49103,76 
4110 P0KE49104,65 
4120 P0KE49105,32 
4130 P0KE49106,76 
4140 P0KE49107,85 
4150 P0KE49108,78 
4160 P0KE49109,69 
4170 CURSET150,155,0 
4180 CHAR96,0,1 

4190 GETH<:MI1*="Soumis a ses illusion 

5 * 

4200 IF H$=*0’ THENMM$=*Profite de sa 
fantaisie* 

4205 TEXT:PAPERO:INK5 
4210 PRINT315,1;CHR$(138);CHR$(130) ; * 
votre bilan* 

4220 PRINT315,2;CHR$ ü 38);CHR*(130) ; * 
votre bilan* 

4225 PRINT:PRINT:PRINT:PRINT 
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4230 PRINTA$: PRINTB$: PRINTC$: PRINTO$ : 
PRINTEÎ:PRINTF$:PRINTG$:PRINTII$:PRINT 
JJ$:PRINTK*:PRINTLÎ:PRINTMM$ 

4240 PRINTCHR$(130);'appuyer sur une 
touche" 

4242 ’- 

4243 'ESPERANCE DE VIE 

4244 ’- 

4245 P0KE48035,0 

4250 PRINTCHR$(17):GETH$ 

4260 CLS:PAPER0 
4280 M$=" esperance" 

4290 FOR 1=0 TO 15 

4300 PRINT31,5 ;CHR$(138);CHR$(130);M$ 

4301 PRINT3I,6;CHR$( 138) ;CHR$(129) ; lit 
4305 NEXT 

4310 PRINT31B,9;CHR$(138);CHRt(130):" 
de" 

4311 PRINT318,10;CHR$(138);CHR$(129); 
■de" 

4330 M$=" vie" 

4340 FOR 1=0 TO 17 

4350 PRINT31,13 ;CHR$<138);CHR$(130);M 

$ 

4360 PRINT3I,14;CHR$(138);CHR$<129);M 

$ 

4370 NEXT 

4380 FOR J=0 TO 65000 STEP 500 
4390 SOUND1,J,10 
4400 S0UND2,J+500,10 
4410 NEXT:PLAYO,0,0,0 
4420 CLS:PAPER4:INK7 
4430 PRINT:PRINT:PRINT:PRINT*Ce progr 
amme conserne les personnes" 

4440 PRINT"dont l’age est entre 15 et 
80 ans." 

4450 PRINT:PRINT:INPUT"votre age";AGE 
4460 IF AGE<15 OR A6E>80 THEN 4450 
4470 IF A6E<41 THEN E=70.7+((AGE-15)* 
(1.8/25)) 

4480 IF AGE>40 AND A6EC60 THEN E=72.6 
+((AGE—41)*(3.4/18)) 

4490 IF AGE>59 THEN E=76.3+((AGE-60)* 
(9.4/20)) 

4500 CLS 

4510 PRINT33,5;"Etes-vous une femme ? 
":G0SUB6000 

4530 IF Q$="0* THEN E=E+3 
4540 PRINT33,5;"Un de vos parents a v 
ecu 80 ans";SPC(7);"ou plus.":G0SUB600 
0 

4560 IF Q$="0" THEN E=E+1 ELSE4630 
4570 PRINT33,5;"[1 ]-Votre mere a vécu 
plus de 80 ans" 

4580 PRINT33.7; "121-Votre pere a vécu 
plus de 80 ans" 

4590 PRINT33,9;"C33—Ies deux* 

4600 PRINT33,11 ; *i4 ]-Aucun":G0SUB6020 
4620 I FQ$= " 1 " THENE=E+4:1 Fû$=* 2 " THENE= 


E+2:IFQ$=*3*THENE=E+6 
4630 PRINT33,5;"C1]-Vous avez un pare 
nt decede d’une maladie de coeur* 

4640 PRINT33,8;'[2H)ecede d’un cance 
r" 

4650 PRINT33,10;"C33—Ni l’un ni l’aut 
re":G0SUB6020 

4670 IFQ$=*l*THENE=E-4;IFQ$=’2"THENE= 
E-3 

4680 PRINT33,5;*[1]-Vous fumez plus d 
e 40 cigarettes par jour" 

4690 PRINT33,8;"C 23-Entre 20 et 40" 
4700 PRINT33,10;"C 33-Mains de 20" 

4710 PRINT33,12;"I4]-Pas du tout":G0S 
UB6020 

4730 IFQ$="1"THENE=E-9:1FQ$="2"THENE= 
E-7:1FQ$=’3"THENE=E-2 

4740 PRINT33,5;"Vous aimez avoir des 
relations* 

4741 PRINT’sexuelles au moins 2 fois 
par semaine.*:G0SUB6000 

4760 IFQ$="0" THEN E=E+2 
4770 PRINT33,5;*Vous effectuez un exa 
men medical tous les ans.*:G0SUB6000 
4790 IF Q$="0" THEN E=E+2 
4800 PRINT33,5;*Vous dépassez votre p 
oids normal.*:60SUB6D00 
4820 IF Q$=*Û* THEN E=E-2 
4830 PRINT33,5;*Vous dormez plus de 1 
0h/nuit ou moins de 5h/nuit.*:G0SUB60Q 
0 

4850 IF Q$=*0* THEN E=E-2 
4860 PRINT33,5 ;*C1 ]-Vous buvez modéré 
ment" 

4870 PRINT33,7;*[2]-Vous ne buvez pas 

l 

4880 PRINT33,9;’I3]-Vous buvez beauco 
up":60SUB6020 

4900 IFQ$= * 1"THENE=E+3:1FQ$=* 3"THENE= 
E-8 

4910 PRINT33,5;'Vous faites de l’exer 
cice physique" 

4911 PRINT'toutes les semaines.*:G0SU 
B6000 

4930 IF Q$="0" THEN E=E+3 
4940 PRINT33,5;'[1 ]-Vous etes ex.univ 
ersitaire* 

4950 PRINT33,7;*I2]-Vous etes ex.bach 
elier(e)' 

4960 PRINT33,9;"[3]-Vous etes ni l’un 
ni 1’autre*:GOSUB6020 
4980 IFQ$="1 * THENE=E+3:1FQ$= * 2"THENE= 
E+2 

4990 PRINT33,5;”[l]-Vous etes citadin 

H 

5000 PRINT33,7;"[23-Vous etes campagn 
ard*:G0SUB6020 

5020 IFQ$="1*THENE=E+1:IFQ$=*2*THENE= 
E-l 


5030 PRINT33,5;"[13-Vous etes marie o 
u vivez":PRINT*maritalement* 

5040 PRINT33,8;"[2]-Vous etes solitai 
re" 

5050 PRINT33,10;'[3]-Vous etes veuf o 
u veuve* 

5060 PRINT33,12;"E 4 ]-Vous etes séparé 
(e) ou divorce(e)*:G0SUB6020 
5080 IFQ$= * 1 * THENE=E+1:1FQ$= * 2 * THENE= 
E-9:IFQ$=* 3* THENE=E-7:IFQ$=*4*THENE=E- 
4 

5090 PRINT33,5;*Etes vous chanceux.*: 
G0SUB6000 

5110 IFQ$=*0*THENE=E+2 ELBE E=E-2 

5120 PAPER0:INK3 

5130 PRINT33,5;CHR$(129);N$ 

5140 PRINT35,10;CHRi(138);CHR$(13Q); * 
votre esperance* 

5141 PRINT35,9;CHR$(138);CHR$(132);"v 
otre esperance* 

5150 PRINT310,13;CHR$(138);CHR$(130); 
‘de vie* 

5151 PRINT310,14;CHR$(138);CHR$(132) ; 
*de vie* 

5160 PRINT320,2Q;CHR$(138);CHR$(130); 
'ans* 

5170 PRINT320,19;CHR*(138);CHR$(132); 
"ans* 

5180 WAIT250:SH00T 

5190 PRINT315,20;CHR$(142);CHR$(135); 
INT(E) 

5200 PRINT315,19;CHR$(142);CHRt(135); 
INT(E) 

5210 PRINT35,25;'voulez-vous rejouer 
(0/N)*:RESTORE 

5220 GETQ*:CLS 

5221 FOR 0=0 T0 6 

5222 FOR N=1 T0 12 

5223 MUSIC1,0,N,10 

5224 MUSIC2,0,N, 10 

5225 MUSIC3,0,N, 10 

5226 NEXT:NEXT:PLAYO,0,0,0 

5230 IFQ$= * 0"THENRUN390 ELSE CALLDEEK 
(#FFFC) 

5990 END 

6000 PRINT33,20;CHR$(133);"Repondez p 
ar OUI ou NON.■ 

6005 GETQ$:CLS 
6010 RETURN 

6020 PRINT33,20;CHR4<133);'Votre choi 
x parmi les solutions":PRINTCHR*(133); 
■proposées. 

6025 GETQ$:CLS 
6030 RETURN 

6040 ’- 

6050 ’ AUTEUR:Cocquio J.Paul 

6060 ’- 

6070 ’ FIN.. 

6080 ’- 
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U n potit |ou simple, tout en Basic, pour dérouiller vos cla¬ 
viers et vos phalanges... Ecrit pour ATMOS, il sera néces¬ 
saire d'effectuer quelques petites modifications pour 
l'utiliser sur ORIC-1. 

0 GOSUB20000:P0KE618,10:P0KE#BBA3,0 
1 G0SUB8000:PAPER2:INK3:CLS 
2 V=5:SC=0:V0=8:DC=30: T P=30:W=0:B0=4 :PLAY1,0,0,0 

iO X=20:Y=25:XC=32:PL0T0,0,23:PL0T0,1,20:PLOT14,1,17:PL0TXC.1,20:G0SUE2000 
15 PL0TX,Y,ASC('a*):PL0TX+1,Y,ASC<"b*):PL0TX, Y+î,ASCC‘c") 

18 PL0TX,Y+l,ASC("c*):PL0TX+l,Y+l,ASCCd’):GOSUB3000 
19 PRINTCHR*(27)*8SC0RE VIES BOUCLIERS :' 

20 PRINTCHR$(27)*GM0UCH0METRE":NB=14:G0SUB9000 

30 PL0TX,Y," 1 :PL0TX+1,Y,' ’:PL0TX,Y+1,’ “:PL0TX+1,Y+l.' " 

100 REM*** BOUCLE PRINCIPALE *** 

150 IFINT(K/2)=K/2THENZ=ASC("a")+WELSEZ=ASC(“e")+W 
200 IFPEEK(#208 !=#ACTHENX=X-1 
250 IFPEEK(#208)=#B4THENX=X+1 
300 IFX<10THENX=10 
350 IFX>30THENX=30 
400 IF((SCRN(X, Y)=1070RSCRN(X+1,Y)=107)ANDW=0)THEN5000 
450 IF((SCRN(X,Y+1)=1070RSCRN(X+1,Y+l )= 107)ANDW=0)THEN5000 
500 PL0TX,Y,Z :PLOTX+1,Y f Z+l:PL0TX, Y+î,Z+2:PL0TX+1,Y+l,Z+3:K=K+1:WAITTP 
550 IFPEEK(#208)=#9CTHENGOSUB4QOO 
àOO IFPEEK(#20e)=#84ANDW<>128THENG0SUB600Q 
650 IFINT î K/5)=K/5THENX C=X C-2: PLOTX C,1,20 

700 SOUND1,200, V0 :1F ( SCOOAND ( INT ( SC/100 ) =SC7100 ) ANCTB ) THENPING : B0=B0+1 : TB=0 
750 IFXC=14THEN5000 
800 IFK=RP+10THENW=0 

850 PL0TX,Y, 1 * :PL0TX+1,Y,* *:PL0TX,Y+l, 1 *:PL0TX+1,Y+l," " 

900 SOUND1,0,0 

950 PLOT 10,0, STR* ( SC ) : PL0T22,0, STR* ( V ) : PL0T37,.0, STR* < B0 î 

1000 IFQTHENDC=DC-.2:TP=INTiDC):0=0 

1050 IFTP<=0THENTP=1 

1100 Y=Y—1 : IFY=2THENY=25 : GOSUB3000 

1150 G0T0100 

2000 REM ***RIVIERE *** 

2010 FORI=2T026:PL0T35,1,18:PL0T32,1,22:PL0T9,1,1 jb:PL0T6,1,22:NEXTI:RETURN 
3000 REM ***BESTI0LES *** 

3010 FORI=1T020:B=INT(RND(1)*21)+10:C=INT(RND(1)* 18)+4:PL0TE,C,ASC(“j")+12B 
3020 D=INT(RND(1)*17)+10:E=INT(RND(1)*1S)+4:PLOTD,E," B :80UND1,0,0 

3030 F=INT(RND(1)*21)+10:6=INT(RND(1)*18)+4:PLOTF,G,ASC(* k *) 

3040 SOUND1,300,V0:NEXTI:RETURN 
4000 REM *** LANGUE *** 

4010 XL=X:YL=Y—1:T=100 

4020 IFSCRNtXL,YL)=234THENTB=1:G0T04050 

4025 IFSCRN(XL,YL)=107THEN500Q 

4030 PLOTXL.YL,105:S0UND1,T,VO 

4040 YL=YL-1:IFYL<=3THEN4Î40ELSET=T+1Ü:G0T04020 

4050 FORI=1T02:F0RJ=50T040STEP-1 : SOUND1,J,V0+1 :NEXTJ,I 

4100 SC=SC+10:Q=1:PL0TXC,1,17:XC=XC+2:IFXC>=32THENXC=32 



Pascal CAPARROS 

Le thème du jeu est simple : il 
s'agit, pour la grenouille, de man¬ 
ger un maximum de mouches, en 
évitant les pièges ; mais gare au 
''mouchomètre'', qui fera périr 
votre grenouille si son appétit 
n'est pas assez aiguisé ! 

Le jeu s'accélère proportionnelle¬ 
ment au score. Un bouclier de 
plus est accordé tous les 100 
points. 

A vos claviers ! 


J"\j" -:ù T ~ PAIRE PARLER DE LUI 


Csr: s oue nous l’attendions ce nouveau 

_ i ,-.r. r,- i 

•_t?t r -. 5 oGî et UhiL- ! 

Créé . :I y à 4 sois nar un fan de micro, 
il démarre à toute allure pour nous 

r :] - égor; jgp 

î i i î taires. 


Outre JASMITEL (300 F), émulation fidèle 
du MINITEL osur ceux oui ne le possède 
pas encore, EASŸDISK (250 F! qui déplace 
le FTDOSs modifie les secteurs, etc...- 
22RYTEL véritable «éaorisateur imprimeur 
de pages Minitel avec graphismes qui 
pour 250 F vous permet en plus d’alléger 

y ne G t £ 5 C 9 t è 1 8 Q h G ft 6 ? 

IM reste toujours à la pointe du progrès 
avec de nouveaux programmes. 

Après MS-TEL (700 E! ou MS-ATM0S (500 P S 
super loçi’ els oour créer son propre 
micro-serveur autant professionnel que 
fsfllil ! âl î 

voilà sur SED0RIC, BD-DISK qui transfère 
vos Softs cassettes sur vos disquettes 
ou N1BBLE pour analyser pistes secteurs 
et qaps ou, encore, sur FTD0S, BUBGEî T 
pour gérer vos comptes avec 
histogrammes, faire des prévisions 
budgétaires, calculs d’emprunts 
...extra... et chacun à 250 F. 


Ces prix défiant toute concurrence pour 
d’excellents programmes. 

Un accueil chaleureux, des personnes 
compétentes. 

Cela ne se trouve pas n’importe où... 
CONTACTEZ LES ET VOUS CONSTATEREZ 


IN INFORMATIQUE & NATURE 
Route de Cavaiilon 13440 CABANNES 
Tél 90 95 20 04 

Serveur Minitel 24/24 90 95 21 00 

F.P. 
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':PRINT323,□; '0 


';CHR$(96);CHR$(27) a G 


4102 PLOTXC,1,20 
4105 PLOTXL,YL," 1 :S0UND1,T,V0 
4110 YL=YL+1:IFYL=YTHEN4200 
4120 PL0TXL,YL,234 
4130 T=T—10 :GOT04105 

4140 SOUND1, T,VO:PLOTXL,YL,* ":YL=YL+1:1FYL=YTHEN4200ELSET=T-10:G0T04140 

4200 SOUND1,0,0:RETURN 

5000 REM ***GRENOUILLE PERDUE" *** 

5005 X1=X+1:Y1=Y:X2=X:Y2=Y+1:X3=X+1:Y3=Y+1: 1=0:V=V—1 
5010 REPEAT 

5020 PLOTX,Y,ASC("a"):PL0TX1,Y1,ASC(“b a ):PL0TX2,Y2,ASC("c“):PL0TX3,Y3,ASC( *d*) 
5030 SOUNDi,50+1,VO:WAIT20 

5040 PLOTX,Y, 1 ':PL0TX1,Y1," ":PL0TX2,Y2," •:PL0TX3,Y3,* ' 

5050 X=X—1 :Y=Y—1 :X2=X2-1:Y2=Y2+1:X1=X1+1:Y1=Y1-1:X3=X3+1:Y3=Y3+1 
5060 I=I+50:UNTIL(Y<=30RY2)=260RX<=11ORX1>=29) 

5070 WAIT100: SOUND1,0,0:IFV=0THEN700QELSECL3:W=0:GOTO10 
6000 IFBOOOTHENBO=BO-1 : RP=K:W=128: RETURNELSERETURN 
7000 NB=15:G0SUB9000: PRINT315,13;CHRï(27)"LGAME OVER 
7010 WAIT300:G0T01 

8000 CLS:PAPERO: INK2: PRINT:PRINT: PRINTCHR$(4) 

8010 PRINTCHR$(27)"N -FROG PANIC-* 

8020 PRINTCHR$(4):PRINT:PRINT:PRINT:PRINT‘ 

1985" 

8030 PRINT:PRINT:PRINTCHRS(27)"S PAR PASCAL CAPARROS" 

8040 PRINT:PRINT:PRINTCHR$(27)"F INSTRUCTIONS* 

8050 PRINTCHR$(27)"A -" 

8060 PRINT:PRINT:PRINTCHR$(27)“C m = DROITE* 

8070 PRINTCHR$(27)"E 1 • = GAUCHE" 

8080 PRINTCHR$(27)’F A = LANGUE* 

8090 PRINT" <ESPACE>= BOUCLIER* 

8100 PRINT:PRINT:PRINTCHR$(27)*W";CHR$(27)*3 APPUYEZ SUR <ESPACE> POUR JOUER 
8110 P0KE735,0 :GETAt: IFA$=* "THENRETURNEL5E8110 
9000 REM *#*MUSIQUE *** 

9005 IFNB=14THENRESTORE 
9010 F0RN=1T0NB 
9015 READA 

9020 IFA=1OOTHENREADA :B=5ELSEB=4 
9030 IFA=0THENF=0:A=1ELSEF=1 

9040 MUSIC1,E,A,VO: PLAYF,0,Q,0 : WAIT10: PLA YO,0,0,0:NE XT : SOUND 1,0, 

9045 PLAY1,0,0,0:RETURN 
9050 DATA100,1,12,10,8,6,5,0,0 
9060 DATAI,6,0,10,8,0 

9070 DATA100,1,12,100,1,100,3,12,8,0,0,5,6,5,3,1,0,0 
20000 DATAO,19,23,21,15,7,7,3 
20010 DATAO,36,52,20,56,48,48,32 
20020 DATA6,2,4,24,0,0,0,0 
20030 DATA48,32,16,12,0,0,0,0 
20040 DATAO,3,7,5,15,23,23,3 
20050 DATAO,32,48,16,56,52,52,32 
20060 DATA2,2,2,2,2,2,12,0 
20070 DATA32,32,32,32,32,32,24,0 
20080 DATAI,1,1,1,1,1,1,1 
20090 DATA29,43,55,1,21,55,43,63 
20100 DATA0,0,4,14,27,14,4,0 
20110 DATAO,8,8,8,42,20,8,0 
20120 DATAO,0,8,16,47,16,8,0,100 
20130 F0RJ=1T033:READA:NEXT 

20200 REPEAT:READP:P0KE460B0+(ASC("a *)*8)+1,P: 1=I+1 :UNTILP=100 
20210 RETURN • 
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tenue technique de MEGAHERTZ. 
Denis BONOMO, c'est Monsieur 
ORIC ! Rédacteur en chef de THEO- 
RIC et de CPC. Passionné d'informa¬ 
tique, il répond à toutes vos ques¬ 
tions sur ORIC les mercredi et ven¬ 
dredi matin. 

Sachez que les deux rédacteurs en 
chef sont aussi radioamateurs et que 
tout les passionne ! 

Gérard PELLAN assure de main de 
maître le service commercial avec les 
revendeurs. Toujours sur la route, il 
nous permet aussi de connaître très 
vite les tendances du marché suivant 
les régions. 

Catherine FAUREZ. Elle cumule 
standardiste, service abonnement, 
expédition, secrétaire de rédaction. 
C'est sur elle que retombe votre 
colère si "quelque chose ne va pas". 
Pourtant, elle garde toujours son 
calme et répond avec gentillesse. 
Patricia MANGIN et Jean-Luc AUL- 
NETTE mettent les différentes revues 
en page pour vous, en espérant que 
la lecture vous soit agréable ! 

La direction de SORACOM est aussi 
partie prenante à 49 % dans deux 
autres sociétés et est entrée, il y a 
peu de temps, dans le capital de la 
Sari FRANCE CB, à hauteur de 
9 %. 

La rédaction de cet article n'a pour 
but que de vous faire mieux connaî¬ 
tre ceux qui chaque jour travaillent 
pour, nous l'espérons, votre plus 
grande satisfaction. 


Disons tout de suite que les collabo¬ 
rateurs des Editions Soracom ne sont 
pas des professionnels. Aucun ne 
connaissait le métier de l'édition en 
commençant, tout était à apprendre. 
S'ils n'étaient pas des profession¬ 
nels, quelles étaient alors leurs qua¬ 
lités ? Simple : des passionnés. Pas¬ 
sionnés d'informatique et de commu¬ 
nication. C'est sans doute là le prin¬ 
cipal argument du succès. Ajoutez- 
y une bonne connaissance du milieu 
dans lequel il fallait évoluer. Qui 
sont-ils ? On ne présente plus les diri¬ 
geants, S. FAUREZ et F. MELLET. 
Radioamateurs, pleins d'idées et 
une grande facilité d'adaptation 
aux événements. 

Marcel LE JEUNE est rédacteur en 
chef de MEGAHERTZ et de CPC. 
Formé sur le tas, il veille à la bonne 


C'est en 1980 que SORACOM vit le 
jour. D'où vient un tel nom ? De la 
contraction SOciété de RAdio et 
Activités de COMmunications, rien 
de plus facile. L'idée de fonder cette 
société est partie d'une idée très sim¬ 
ple. Après avoir écrit un ouvrage 
ensemble, Florence MELLET et 
Sylvio FAUREZ se posèrent la ques¬ 
tion toute simple : pourquoi pas 
nous ? Vivant ensemble, pourquoi 
ne pas travailler aussi ensemble ? 
C'était un pari audacieux. 
Aujourd'hui, dans sa cinquième 
année, la société vient de traverser, 
à fin 1984, une grave crise dont elle 
n'aurait jamais dû se relever. Pour¬ 
tant, un an après, ce nouveau pari 
est gagné, même s'il reste encore 
une ligne droite à parcourir. 
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Marcel LE JEUNE 

I w 

ans notre numéro 15, nous avions étudié le principe de 
fonctionnement de l'analyseur de syntaxe qui constitue 

_ le cœur d'un jeu d'aventure. Nous allons maintenant le 

voir plus en détail en nous référant aux numéros de lignes 
Basic du listing publié dans le n° 12. 




Le cœur du programme se situe 
entre les lignes 1980 et 2660. 
Tout d'abord, nous allons rensei¬ 
gner la ligne 1 980 en la réécri¬ 
vant sous la forme suivante : 
1980 REM - ROUTINE PRINCI¬ 
PALE - 

Nous sommes maintenant prêts 
à entamer l'étude de cette rou¬ 
tine. 

1990 On efface l'écran (sans 
commentaire). 

2000 Cette ligne, propre à 
l'ORIC, permet de séparer l'écran 
en deux parties et choisit la cou¬ 
leur verte pour la partie inférieure. 
2010 La variable RN prend une 
valeur aléatoire de 1 ou de 2 et 
on affichera en haut de l'écran 
soit le message "Vous êtes”, soit 
"Vous vous trouvez" en fonction 
de la valeur de RN. Ceci apporte 
un peu de variété dans les mes¬ 
sages à chaque déplacement. 
Puis, on affiche immédiatement 
après le message l'endroit où l'on 
se trouve qui est le contenu de la 
variable E$(N) (voir tableau 1 du 
numéro 15 page 29). 

2050 On va faire un petit tour en 
5700 vers la routine de calcul et 
d'affichage de l'heure et on 
revient. 

2070 On affiche à l'endroit qui va 
bien le message "Issues possi¬ 
bles". 

2080 On remet à zéro les quatre 
indicateurs de direction. 

2120 Nous avons vu la dernière 
fois qu'à chaque emplacement 
E$(N) était associée une variable 


D$(N) contenant, sous forme 
codée, les directions possibles 
pour un endroit donné. Par exem¬ 
ple, si N = 11, nous sommes sur le 
parking et D$(11 ) - "NOSUOU". 
Nous allons donc prélever les 
deux premiers caractères de 
D$(N) qui sont "NO". Entre les 
lignes 2140 et 21 70, nous allons 
découvrir les vraies directions et 
les afficher. La ligne 2140 nous 
dit que si nous avons rencontré 
NO, le NORD sera possible et affi¬ 
ché. Puis, nous nous décalons de 
deux caractères vers la droite où 
nous trouvons SU et ainsi de 
suite jusqu'à la fin de D$(N). 
Toutes nos directions possibles 
sont maintenant affichées et les 
indicateurs associés ND, SD, OT 
sont positionnés à 1. 

2210 Nous allons maintenant 
afficher la liste de objets visibles. 
2220 Mettons à zéro le nombre 
d'objets visibles lors de l'opéra¬ 
tion précédente et commençons 
à scruter la liste des emplace¬ 
ments d'objets EO(N) (voir 
tableau 2 dans le numéro 15 
page 29). 

2240 Si aucun emplacement 
d'objet ne correspond à l'empla¬ 
cement où nous nous trouvons 
actuellement, on saute en 2290 
pour afficher qu'on ne voit rien de 
spécial. 

2245 Sinon, on affiche le nom de 
l'objet visible et on continue ainsi 
jusqu'à avoir épuisé la liste des 
objets. 

2310 On remet à zéro la variable 


C$ qui va bientôt nous servir. 
2320 - 2350 On oublie ces lignes 
pour l'instant. On y reviendra plus 
tard. 

2360 Ici encore, pour apporter un 
peu de variété au programme, on 
choisit au hasard entre M$(3) ou 
M$(4) et on affiche le message 
correspondant. Voir lignes 140 et 
150. 

2370 La machine est prête à 
accepter votre ordre et vous pou¬ 
vez taper vraiment n'importe 
quoi. 

2375 Si vous tapez RETURN, on 
recommence. 

2380 Si vous tapez I, on en 
déduit que vous voulez l'inven¬ 
taire des objets transportés, et on 
va directement traiter cela en 
ligne 1370. On en profite main¬ 
tenant pour taper une nouvelle 
ligne 1360 REM - INVENTAIRE - 
2382 à 2388 Si vous tapez N, S, 
O ou E, on en déduit que vous 
voulez aller au Nord, au Sud, etc. 
Ceci permet des déplacements 
plus rapides. 

2400 Ici commence l'analyse de 
syntaxe proprement dite. On 
sélectionne les quatre caractères 
de gauche de votre ordre et l'on 
considère qu'ils désignent le 
verbe désignant l'action. Exem¬ 
ples : ALLEr nord ou bien 
ASSOmmer le garde. 

2410 Voici le détecteur de "gros 
mots" qui apporte une pointe 
d'humour au programme. Je 
vous fais grâce des détails, mais 
si un gros mot est détecté, vous 
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aurez le droit à un message de 
remontrance choisi au hasard en 
241 5 et situé en 2780 ou 2800. 
2440 à 2460 En scrutant votre 
ordre C$ en partant de la gauche 
jusqu'à rencontrer un espace 
CHR$(32), on récupère le nom du 
verbe en entier, par exemple 
ASSOMMER. Ceci pourra servir, 
quand le verbe est inconnu, à 
afficher le message : Je ne 
connais pas le verbe ESSAYER, 
par exemple. 

2480 à 2500 On réitère l'opéra¬ 
tion rhais cette fois-ci en scrutant 
C$ de la droite vers la gauche, ce 
qui nous permettra d'isoler le der¬ 
nier mot de la phrase qui est le 
complément au verbe. Par exem¬ 
ple : Assommer la SENTINELLE. 
2510 N$ est la version abrégée 


à trois caractères du mot que 
nous venons de sélectionner. 
2530 Si N$ est égal au trois 
caractères de gauche du verbe, 
c'est que l'ordre ne contient 
qu'un seul mot et l'ordinateur 
vous demandera en 2760 de pré¬ 
ciser votre pensée et on repart en 
1990. 

2540 à 2560 Nous allons main¬ 
tenant scruter la liste condensée 
des objets située en 3830 et 
3840 par sauts de trois caractè¬ 
res pour voir si l'un d'entre eux 
correspond à N$. 

257Q Sinon l'ordinateur annonce 
qu'il ne connaît pas le mot en 
question. 

2580 On va faire une petite 
passe en 430 et on retourne au 
point de départ en 1990. 


2590 NN est égal au numéro de 
l'objet reconnu par comparaison 
avec la liste située en lignes 3850 
et 3845. 

2600 à 2620 Comme en 2540, 
on va maintenant scruter la table 
condensée des verbes située en 
lignes 3770 et 3775 par sauts de 
quatre caractères. Si aucun verbe 
connu ne correspond à votre 
ordre, on va chercher un mes¬ 
sage en 2630, on passe en 430 
et on retourne au point de départ. 
2650 et 2660 On prélève en 
lignes 3780 et 3785 le numéro 
du verbe et, en fonction de ce : 
numéro, on ira chercher dans le 
programme les opérations à exé¬ 
cuter en fonction de votre ordre, 
et c'est ce que nous étudierons 
dans le prochain numéro. 


CARTE SERIE 
MINITEL, 

Faisons le point... Frédéric TARAUD 

c.. 

^^■uite à l'intérêt que suscite la carte série, faisons ici le 
^point sur deux problèmes précis. 


L'APPROVISIONNEMENT 
DES COMPOSANTS 

Le composant le plus difficile à se 
procurer serait apparemment 
l'UART (le 6551 ). Il se peut effec¬ 
tivement que votre revendeur 
habituel ne possède pas ce cir¬ 
cuit. Cependant, l'auteur a pu 
relever dans la revue Elektor, plus 
de 5 adresses (généralement sur 
Paris), où il est possible de 
commander ce matériel pour un 
prix allant de 60 à 95 F (sans le 
port). On pourra éventuellement 
y trouver le reste des compo¬ 
sants, tels que quartz, connec¬ 
teurs ou supports. 

ADAPTATION DE LA 
CARTE AVEC UN MICRODISC 

Cette adaptation ne doit pas 


poser de problème sur les modè¬ 
les de Microdisc équipés d'un 
connecteur supplémentaire sur le 
câble de liaison. 

Cependant, l'auteur a travaillé 
avec un lecteur ne possédant pas 
ce connecteur et, de plus, le 
câble de liaison était blindé... 
Alors, comment faire pour se 
connecter ? Suivez le guide ! 

Il vous faudra d'abord décider si 
vos moyens vous permettent 
d'acheter un lecteur esclave. Si 
tel n'est pas le cas, vous pourrez 
alors démonter sans remord le 
connecteur mâle se trouvant au 
dos de votre lecteur maître et le 
ressertir sur le câble. Il s'est 
effectivement avéré impossible 
de trouver ce type de connecteur 
dans le commerce. 


Vous enleverez alors une partie 
du blindage pour pouvoir resser¬ 
tir le plus près possible de l'ORIC. 
Mais, c'est là que les ennuis 
commencent ! Ce type de lecteur 
n'a sans doute pas été prévu 
pour travailler avec un autre péri¬ 
phérique, ce qui se traduit par un 
décodage d'adresse du drive du 
type "bulldozer” qui affecte tout 
ce qui se trouve sur son pas¬ 
sage... 

Les 4 malheureux registres du 
6551 sont ainsi balayés après 
chaque accès disque, que ce soit 
une écriture ou une lecture. 
Alors, que faire ? La première 
solution envisagée consiste à 
intercaler une autre carte électro¬ 
nique permettant d'arranger les 
choses. Mais ce dispositif serait 
très "lourd” et surtout très coû¬ 
teux... 

La deuxième idée se propose tout 
simplement de réinitialiser la carte 
série après chaque opération sur 
disque en faisant : 

POKE #381,0:POKE #382, 
#6B:POKE #383, #38. 

Si,par exemple, vous avez 
implanté votre carte en #380. 
Donc, si vous avez ce genre de 
problème, n'hésitez pas à rajou¬ 
ter dans les programmes ces 
quelques lignes d'initialisation 
après un LOAD ou un SAVE. 
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A SUIVRE 



Listez 
bout 


N LIST 

programmes à l'autre 
de la France avec un 




Frédéric TARAUD 



e vous est-il jamais arrivé d'avoir envie, ou besoin, de montrer un de vos programmes à un 
ami, pour un avis ou un conseil ? 

Mais si cet ami ne peut venir vous voir, ou s'il ne possède pas un ORIC, vous voilà obligé de 
vous déplacer avec tout votre matériel... 

MLIST, associé avec la carte série, vous permettra alors de lister votre programme sur le Minitel 
de votre correspondant ! 


INSTALLATION 

Rentrez le programme Basic de 
chargement, vérifiez les DATA, 
puis lancez par un RUN. Si les 
checksums sont corrects, répon¬ 
dez "S" pour la sauvegarde sur 
cassette. 

En le rechargeant, le vecteur ! est 
renseigné, ou alors faites CALL 
#9800. 

Chargez ensuite le programme 
Basic à transmettre, puis appelez 
votre correspondant. Les deux 
Minitels étant sous tension, tapez 
! suivi de RETURN. Ceci aura 
pour effet d'envoyer la porteuse, 
c'est-à-dire que la personne appe¬ 
lée entendra la tonalité aiguë lui 
permettant de se connecter. Il 
faudra alors qu'elle tape 
CNX/FIN. 

A partir de ce moment, les 
mêmes informations vont appa¬ 
raître sur les deux Minitels, et il 
sera alors possible d'utiliser l'un 
ou l'autre des deux claviers. 

Le message "ESPACE pour Lis¬ 
ter" va s'afficher en ligne 0. 
Cette action effectuée, le listing 
commence alors page par page, 
ou plutôt écran par écran. Quand 
un écran est plein, vous pouvez 
poursuivre ou vous déconnecter. 
En fin de listing, il vous sera pos¬ 
sible de recommencer avec 
REPETITION, ou d'arrêter avec 
CNX/FIN. A ce propos, notez que 
pour ce faire, vous devrez taper 
Touche Spécial + CNX/FIN, alors 
qu'il suffira à votre correspondant 


de taper CNX/FIN (ceci lui sera 
indiqué de toute façon). 

FONCTIONNEMENT 

Ce programme est totalement en 
langage machine afin d'être 
entièrement indépendant du 
Basic à transmettre, et aussi 
d'être rapide. 

Son principe est simple : on rem¬ 
place le JMP# F5C1 en 23F, 240 
( # F5C1 -PRTCHR- : envoi d'un 
caractère vers l'imprimante), par 
un JMP # 980B, c'est-à-dire vers 
une routine d'envoi vers le Mini¬ 
tel. Ainsi, tout caractère envoyé 
théoriquement vers l'imprimante 
par un LLIST se retrouve affiché 
sur le Minitel... 

Ceci explique d'ailleurs l'incom¬ 
patibilité complète avec l'ORIC-1, 
puisque l'envoi vers l'imprimante 
avec cette machine ne transite 
pas par la page 2. Une solution 
pour résoudre le problème aurait 
été de réécrire la routine LIST de 
la ROM pour l'adapter aux deux 
machines (avis aux amateurs...). 
C'est en effet à elle qu'est confié 
le plus gros du travail dans le pro¬ 
gramme, le reste permettant l'en¬ 
voi de la porteuse et de messa¬ 
ges, le test des touches et la 
détection de fin de page. 

QUELQUES TRUCS 

Le fait que la routine LIST soit uti¬ 
lisée permet d'ailleurs les choses 
suivantes : 


Pendant la transmission, faites 
CTRL C. Le programme s'arrête 
ainsi que le listing, mais la trans¬ 
mission continue et le vecteur 
d'imprimante n'est pas réinitia¬ 
lisé. Vous pouvez alors envoyer 
des messages sur l'écran de 
votre interlocuteur en faisant : 
LPRINT" message... " 
ou encore ne lister qu'une partie 
du programme à transmettre en 
faisant, par exemple : LLIST 
230-510. 

D'autre part, si vous travaillez 
avec un assembleur qui utilise le 
PRTCHR, vous pourrez égale¬ 
ment lister des sources ou des 
objects à distance. 

Par contre, pendant ce temps, le 
correspondant ne pourra plus se 
déconnecter. Ce sera à vous de 
le faire en tapant CALL #98F6, 
ou alors vous relancerez le pro¬ 
gramme en rentrant CALL 
# 98AC. 

Si vous ne pouvez pas utiliser le 
vecteur !, lancez le programme 
par un CALL # 9877. Pour les uti¬ 
lisateurs du SEDORIC, vous pou¬ 
vez remplacer le ! par le ] en 
tapant : 

DOKE #9805, #2F9. 

DOKE #9808, # 2FA. 

Dernière remarque : si la per¬ 
sonne que vous appelez possède 
également un ORIC avec la carte 
série et le programme UTILITEL 
déjà décrit, il lui sera alors possi¬ 
ble d'enregistrer votre pro¬ 
gramme sous forme de pages 
Vidéotext. 
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liLIST 

Chargement des DATAS 


Attention! carte série 
obligatoire 


10 ? 

20 7 
30 7 

40 CLS:LIGNE=100:C=1 :CHKS-0 
50 FOR I=#9B00 TO #99DF 
60 READD$:D-VAL. <:"#" +D$> : CHKS-CHKS+Dh-C : C-C+l : PQKEI, D 

70 IFC=1 7THEN PRI NT"L. i gne " ïLIDNEï" CHKS-";CHKS:LIGNE-LIGNE+10 :CHKS-0:C=1 
80 NEXT 

90 PRINT"Tapez S pour Sauver, autre touche pour Arreter"ïsGET Z% 

35 IF Z*O"S" THEM END 

9E CBAVE “ ML I ST ", A#9S00, E#39DF, AUTO : END 


100 

DATA 

A3, 77, 

A0, 

98, 

SD, 

F5, 

02, 

SC, 

F6, 02, 60, 20, 23, 99, 8D, 38 

110 

DATA 

99, SA, 

48, 

98, 

48, 

A2, 

00, 

AD, 

38, 93, EE, 37, 99, C9, 0D, F0 

120 

DATA 

09, AD, 

37, 

99, 

C9, 

28, 

D0, 

4A, 

A2, 01,EE, 36,99,A3,00,SD 

130 

DATA 

37, 99, 

AD, 

38, 

99, 

C9, 

18, 

D0, 

39, A3, 00, SD, 36, 99, SD, 37 

140 

DATA 

93, A9, 

83, 

A0, 

99, 

20, 

0D, 

99, 

20, 1E, 39, C9, 20, F0, 0E, C9 

150 

DATA 

13, D0, 

F5, 

20, 

1E, 

99, 

C3, 

49, 

D0, EE, 4C, F6, 98, A3, 0C, 20 

180 

DATA 

29, 99, 

A9, 

39, 

A0, 

93, 

20, 

0D, 

99, E0, 01, D0, 05, A9, 0A, 20 

170 

DATA 

29, 99, 

88, 

A8, 

88, 

AA, 

60, 

A3, 

00, A2, 6B, A0, 38, 8D,SI,03 

1S0 

DATA 

SE, 82, 

03, 

SC, 

83, 

03, 

A9, 

0B, 

A0, 98, 8D, 3F, 02, SC, 40, 02 

190 

DATA 

A3, 42, 

A0, 

99, 

20, 

0D, 

99, 

20, 

1E, 99,C3, 13, D0, F9,20, 1E 

200 

DATA 

99, C3, 

53, 

D0, 

F2, 

A3, 

49, 

A0, 

99, 20, 0D, 99, A3, 55, A0, 99 

210 

DATA 

20, 0D, 

99, 

20, 

1E, 

99, 

C9, 

20, 

D0, F9, A3, FF, SD, 38, 99, A3 

220 

DATA 

00, SD, 

37, 

39, 

A9, 

0C, 

20, 

23, 

99, A3, 39, A0, 99, 20, 0D, 99 

230 

DATA 

A9, 80, 

SD, 

F2, 

02, 

20, 

16, 

CS, 

20, 03, CS, A3, AF, A0, 99, 20 

240 

DATA 

0D, 93, 

20, 

1E, 

99, 

C9, 

13, 

D0, 

F9,20, 1E, 99, C9, 43,F0,CA 

250 

DATA 

C3, 49, 

F0, 

02, 

D0, 

EC, 

A3, 

DA, 

A0, 99, 20, 0D, 93, A9, Cl, A0 

280 

DATA 

F5, 8D, 

3F, 

02, 

SC, 

40, 

02, 

4E, 

Fl, 02, 4C, 71, CA, 85, 60, 84 

270 

DATA 

81,A0, 

00, 

B1, 

80, 

F0, 

06, 

20, 

29, 99, CS, D0, F6, 60, AD, 81 

280 

DATA 

03, 29, 

08, 

F0, 

F9, 

AD, 

80, 

03, 

60, 48, AD, 81,03, 29, 18, F0 

290 

DATA 

F9,88, 

8D, 

80, 

03, 

80, 

09, 

0F, 

44, 1 F - , 40, 41, IB, 51,20, 12 

300 

DATA 

87, 00, 

IB, 

39, 

6F, 

IB, 

39, 

68, 

00, IB, 3B, 61,58, 53, IB, 3B 

310 

DATA 

E, .1,5B, 

51, 

0C, 

00, 

1F, 

40, 

41, 

IB, 51, IB, 48, 20, 2A, 2A, 2A 

320 

DATA 

2A,2A, 

2A, 

20, 

54, 

61 , 

70, 

65, 

7A, 20, 45, 5c*, 50, 41,4c*, 45 

330 

DATA 

20, 70, 

BF, 

75, 

72, 

20, 

6C, 

69, 

73, 74, 65, 72, 20, 2A, 2A, 2A 

340 

DATA 

2A, 2A, 

00, 

1F, 

40, 

41, 

IB, 

52, 

20, 20, 20, 20, 53, 75, 89, 74 

350 

DATA 

85, 3A, 

45, 

53, 

50, 

41 , 

43, 

45, 

20, 20, 20, 41,72, 72, 85, 74 

380 

DATA 

65, 72, 

3A, 

43, 

4E, 

58, 

2F, 

48, 

43, 4E, 20, 20, 20, 20, 00, 1F 

370 

DATA 

40,41, 

IB, 

55, 

20, 

41, 

72, 

72, 

85, 74, 65, 72, 3A, 43, 4E, 58 

380 

DATA 

2F,46, 

49, 

4E, 

20, 

20 , 

52, 

65, 

6C, 69, 73, 74, 65, 72, 3A, 52 

330 

DATA 

45,50, 

45, 

54, 

49, 

54, 

49, 

4F, 

4E, 00, IB, 33, 67, 00, EA, EA 


Ckecksum 


Liane 

100 

CAKE- 

14184 

L.. 

i g n e 

200 

L. i g ne 

110 

CEI KS— 

181 19 

L. 

i gne 

210 

L i g ne 

120 

CHKS— 

15770 

L. 

i gne 

220 

L i g n e 

130 

CHKS- 

14833 

L 

i gne 

230 

L i gne 

140 

CHKS- 

15881 

L. 

i gne 

240 

L i g ne 

150 

CHKS— 

17431 

L. 

i gne 

250 

L i gne 

180 

CHKS— 

12345 

L. 

i gne 

280 

Ligne 

170 

CHKS—' 

14297 

L. 

i gne 

270 

L i gne 

180 

CHKS— 

11180 

L. 

i gne 

280 

L i gne 

190 

CHKS- 

14347 

L. i gne 

290 


CHKS- 

17582 

L i gne 

300 

CHKS— 

8098 

CHKS- 

20245 

L i gne 

310 

CHKS— 

8244 

CHKS— 

13222 

L i gne 

320 

CHKS— 

10206 

CHKS- 

15840 

L. i gne 

330 

CHKS— 

10395 

CHKS— 

19413 

L„ i g n e 

340 

CHKS— 

9297 

CHKS— 

19746 

L i gne 

350 

CHKS— 

10758 

CHKS- 

14789 

L.. i gne 

380 

CHKS— 

8111 

CHKS— 

19139 

L. i g n e 

370 

CHKS— 

11893 

CHKS— 

14000 

L i g rie 

380 

CHKS— 

12222 

CHKS- 

8825 

L. i gne 

390 

CHKS- 

13080 
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4:4:4:4:44: 

4 

MLIST 4 

4: 

le 17/02/SB 4 

4 

F. TOROUD 4: 

4 

4:44:44:4:4:4:4444444:444 


ORG $9800 
OBJ $9800 


PRTCHR =$F5C1 


9800 09 77 
9802 00 98 
9804 SD F5 02 
9807 SC F6 02 
9800 60 


4 I n i $ ! 

LDO #-ENTREE 
LDY #+ENTREE 
STO $2F5 
STY $2F6 
RTS 


4:4:4:4:4:4:4:4:4:4:44:4:4444:4 
4 

PRTMIN: * 

Se substitue a 4 
PRTCHR 4 

4 

44:4=4:4:444:4:4:4:4:44:444:4 


980B 

20 

29 

99 

PRTMIN 

JSR 

980E 

SD 

38 

99 


STO 

981 1 

80 




TXO 

9812 

48 




PHO 

9813 

98 




TYO 

9814 

48 




PHO 

4 

LDX 

3815 

02 

00 



9817 

OD 

^8 

99 


LDO 

9810 

EE 

37 

99 


INC 

981D 

C9 

0D 



CMP 

981F 

F0 

09 



BEO 

9821 

OD 

37 

99 


LDO 

9824 

C9 

28 



CMP 

9826 

D0 

40 



BNE 

9828 

02 

01 



LDX 

9820 

EE 

36 

99 

CR 

INC 

9S2D 

09 

00 



LDO 

9S2F 

SD 

37 

99 


STO 


Envoi caractère 
vers Minitel 
ENVOI ; af -f i Chase 
STOCK; sauve 0 

; Sauvegarde 
;du 

; contexte 


4 Compteur lisnes 


#$00 ;Flas—Down 
STOCK ;rest. 0 
CPTCHR;cptchr+l 
#$0D 'Test si 
CR iCarr.Ret 
CPTCHR;Test si 
#$2S . ;40 carac 
CONT 

#$01 ; F l as-LJp 

CPTLIG;cptlis+1 
#$00 ; Init Cpt 

CPTCHR;Iisnes 


9832 

OD 

36 

99 


LDO 

CPTLIG;Test si 

9835 

C9 

18 



CMP 

#$18 ;24 lien. 

9837 

D0 

39 



BNE 

CONT 

9839 

09 

00 


ENDPOQ 

LDO 

#$00 

9S3B 

SD 

36 

99 


STO 

CPTLIG;Init des 

983E 

SD 

37 

99 


STO 

CPTCHR;2 compt. 






4 

Message 

9841 

09 

83 



LDO 

#-MES2 

9843 

00 

99 



LDY 

#+-MES2 

9845 

20 

0D 

99 


JSR 

OFFICH 






4: 

Ottente ESPOCE 






4 

ou CNX/FIN 

9848 

20 

1E 

99 

ESPOCE 

JSR 

RECEPT 

984B 

C3 

20 



CMP 

#" " ; Test 

9S4D 

F0 

0E 



BEQ 

CLEOR ; Espace 

9S4F 

C9 

13 



CMP 

#$13 ; 

9851 

D0 

F5 



BNE 

ESPOCE ; 

9853 

20 

1E 

99 


JSR 

RECEPT ;test 

9856 

C9 

49 



CMP 

#$49 ;CNX/FIN 

9858 

D0 

EE 



BNE 

ESPOCE ; 

9850 

4C 

F6 

98 


JM P 

DECONN 






4 

Init.fin page 

9S5D 

09 

0C 


CLEOR 

LDO 

#$0C ; Efface 

9B5F 

20 

29 

99 


JSR 

ENVOI ; écran 

9862 

09 

39 



LDO 

#—BLONCK;efface 

9864 

00 

99 



LDY 

#+BLONCK;ligné 

3866 

20 

0D 

99 


JSR 

OFFICH ; 0 

9869 

E0 

01 



CPX 

#$01 ; Test Fias 

986B 

D0 

05 



BNE 

CONT ; Rajouter 

986D 

09 

00 



LDO 

#$00 !Line-Feed 

9S6F 

20 

29 

99 


JSR 

ENVOI ; si fin de 






;pase dans un mot 






♦ Re 

tour LIST 

9872 

68 



CONT 

PLO 

;Restitution 

9873 

08 




TOY 

; du 

9874 

68 




PLO 

; contexte 

9875 

00 




TOX 

? 

9876 

60 




RTS 







* : * : *: >f : *: * : * : * : * : * : >f : * : * : * : >f : * : * : 







*: 






* 

PROGRAMME * 







PRINCIPAL * 







*: 






>f ; * : >f : * : * : >f : >f: :+: >f : >f : >f : >f : * : >f: * : 






4 In 

it UORT 

9877 

09 

00 


ENTREE 

LDO 

#$00 

9879 

02 

6B 



LDX 

#$6B 

987B 

00 

38 



LDY 

#$38 

9S7D 

8D 

81 

03 


STO 

$381 

9880 

SE 

82 

03 


STX 

$382 

9883 

SC 

83 

03 


STY 

$383 






4 De 

route PRTCHR 






4 vers PRTMIN 

9886 

09 

0B 



LDO 

#—PRTMIN 

9888 

00 

98 



LDY 

#+PRTMIN 

9880 

SD 

3F 

02 


STO 

$23F 

9SSD 

SC 

40 

02 


STY 

$240 






4 Rt 

tou rnement 






4 Envoi porteuse 

9890 

09 

42 



LDO 

#—CONNEX 

9832 

00 

99 



LDY 

#+COMNEX 

9894 

20 

0D 

39 


JSR 

OFFICH 






4 Ottente Connexion 

9897 

20 

1E 

99 

SEP 

JSR 

RECEPT 

9890 

cg 

13 



CMP 

#$13 


36 
















*: * : ♦ * *♦= * * : * * * : *:•*« ** : *: * >f: 


9S9C 

9S9E 

9801 

9803 


9805 

9807 

9809 


9S0C 

9S0E 

9880 


9883 

9886 

9888 


9880 

9SBC 

9SBF 

9SC1 

9BC4 

9BC6 

9BC9 

9SCB 

9SCD 

9SD0 

9SD2 

98D5 

9SDS 


9SDB 

98DD 

9SDF 


98E2 

9BE5 

9BE7 

9SE9 

9SEC 

9SEE 

9SF0 

98F2 

9SF4 


9BF6 

9SFS 

98F0 

98FD 

9SFF 

9901 

9904 

9907 

9900 


* * 












* SOUS PROGROMMES * 

D0 

F9 



BNE SEP 






* * 

20 

1E 

99 


JSR RECEPT 






* : )f : >f : >f : >f : * : >f : * : * : * : * : )+: * : >f ; >f ; * : >f : >f : 

C9 

53 



CMP #$53 







D0 

F 2 



BNE SEP 






Sous Rout i ne 











*= d’ affiChase 





* Prise -> écran 






* CO) -> OMS Début 





*■ Clavier—) prise 






* C'Y) -> OPS Début 

09 

49 



LDO #—OIGUIL 

990D 

85 

60 


OFFICH 

STO $60 

00 

99 



LDY #+OIGUIL 

990F 

84 

El 



STY $61 

20 

0D 

99 


JSR OFFICH 

9911 

00 

00 



LDY #$00 






9913 

B1 

60 


LOOP 

LDO C$60),Y 





Message 

9915 

F0 

06 



BEQ NUL 

09 

55 



LDO #—MES1 

9917 

20 

29 

99 


JSR ENVOI 

00 

99 



LDY #+MESl 

9910 

CS 




INY 

20 

0D 

99 


JSR OFFICH 

991B 

D0 

F6 



BNE LOOP 






991D 

60 



NUL 

RTS 





* Attente Espace 







20 

1E 

99 

SPOCE 

JSR RECEPT 






* Sous Routine de 

C9 

20 



CMP #" " 






* Réception Octet 

D0 

F9 



BNE SPOCE 

991E 

OD 

SI 

03 

RECEPT 

LDO $381 






9921 

29 

08 



OND #$0S 





* List 

9923 

F0 

F9 



BEQ RECEPT 

09 

FF 


LISTER 

LDO #$FF 5Compteur 

9925 

OD 

80 

03 


LDO $380 

SD 

38 

99 


STO CPTLIG; 1 isne=—1 

9928 

60 




RTS 

09 

00 



LDO #$00 »Compteur 







SD 

37 

99 


STO CPTCHR;carac= 0 






Sous Rout i ne 

09 

0C 



LDft #f>0C îeffac6 






Envoi d’ un octet 

20 

29 

99 


JSR ENVOI 5écran 

9929 

48 



ENVOI 

PHO 

09 

39 



LDO #-BLONCKîefface 

9920 

OD 

SI 

03 

TEST 

LDO $381 

00 

99 



LDY #+BLONCK;1isne 

992D 

29 

10 



OND tt$10 

20 

0D 

99 


JSR OFFICH ;0 

992F 

F0 

F9 



BEQ TEST 

09 

80 



LDO #$80 ilnhib. 

9931 

68 




PLO 

8 D 

F2 

02 


STO $2F2 ; sortie 

9932 

8 D 

80 

03 


STO $380 

20 

16 

CS 


JSR $CS1& ;init 

9935 

60 




RTS 

20 

03 

CS 


JSR $CS03 î11ist 

















♦Seauences,Messages 





Message 






♦Réservâtion octets 

09 

0F 



LDO #-MES3 





CPTLIG 

$ 00 

00 

99 



LDY #+MES3 





CPTCHR 

$ 00 

20 

0D 

99 


JSR OFFICH 





STOCK 

$ 00 










BLONCK 

$ 1F 40 41 IB 51 20 





fit ten t *=* Choix 






$ 12 67 00 

20 

1E 

99 

TOUCHE 

JSR RECEPT 





CONNEX 

$ IB 39 6F IB 39 68 

C9 

13 



CMP #$13 






$ 00 

D0 

F9 



BNE TOUCHE 





OIGUIL 

$ IB 3B 61 58 53 

20 

1E 

99 


JSR RECEPT 






$ IB 3B 61 5B 51 

C9 

43 



CMP #$43 






$ 0C 00 

F0 

CO 



BEQ LISTER 





MES1 

$ 1F 40 41 IB 51 IB 

C9 

49 



CMP #$49 






$ 48 20 

F0 

02 



BEQ DECONN 






$ 20 20 20 20 20 20 

D0 

EC 



BNE TOUCHE 






" Tapez ESPOCE pour 











" 1 ister 





* Déconnexion 






$ 20 20 20 20 20 20 





* Restaure PRTCHR 






$ 00 





* Retour BOSIC 





MES2 

$ 1F 40 41 IB 52 20 

09 

DO 


DECONN 

LDO #—deconn 






" Suite:ESPOCE 

00 

99 



LDY #+deconn 






Arrêter:CNX/FIN 

20 

0D 

99 


JSR OFFICH 






$ 20 20 20 20 00 

09 

Cl 



LDO #—PRTCHR 





MES3 

$ 1F 40 41 IB 55 20 

00 

F5 



LDY #+PRTCHR 






"OrretersCNX/FIN 

BD 

3F 

02 


STO $23F 






" RelistersREPETI 

SC 

40 

02 


STY $240 






"T ION 

4E 

Fl 

02 


LSR $2F1 






$ 00 

4C 

71 

C4 


JMP $C471 ; Ready 1 





deconn 

$ IB 39 67 00 


PRTCHR 

$F5C1 

PRTMIN 

$9S0B 

CR 

$9820 

ENDPOG 

$9839 

ESPOCE 

$9848 

CLEOR 

$9S5D 

CONT 

$9872 

ENTREE 

$9877 

SEP 

$9897 

SPOCE 

$9SB3 

LISTER 

$9880 

TOUCHE 

$9SE2 

DECONN 

$98F6 

OFFICH 

$990D 

LOOP 

$9913 

NUL 

$991 D 

RECEPT 

$991E 

ENVOI 

$9929 

TEST 

$9920 

CPTLIG 

$9936 

CPTCHR 

$9937 

STOCK 

$9938 

BLONCK 

$9939 

CONNEX 

$9942 

01 GUI L 

$9949 

MES1 

$9955 

MES2 

$9983 

MES3 

$990F 

deconn 

$99D0 
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FREQUENCEMETRE 

ACCORDEUR 


Alain KOSTER 



e logiciel permet de transformer votre ORIC-ATMOS ou 
ORIC-1 relié à un magnétophone muni d'un microphone 
en un accordeur électronique performant ou en un fré¬ 
quencemètre (de 60 à 5000 Hz). 


De par son principe qui consiste 
à mesurer la fréquence fonda¬ 
mentale du signal appliqué sur 
l'entrée magnétophone de l'ORIC, 
on peut contrôler directement la 
justesse des instruments de 
musique qui fournissent un son 
assez pur (c'est par exemple le 
cas des flûtes). 

Sur la plupart des magnétopho¬ 
nes, il est possible de transmet¬ 
tre le signal amplifié du micro en 
enclenchant la position enregis¬ 
trement sans avoir besoin de pla¬ 
cer une bande. Il suffit d'ouvrir la 
trappe de l'appareil et d'appuyer 
manuellement sur le taquet de 
protection d'effacement sur les 
deux touches qui placent l'appa¬ 
reil en enregistrement, on peut 
ensuite refermer la trappe et pas¬ 
ser en position pause. Pour les 
instruments qui fournissent un 
son riche en harmoniques, placer 
le réglage de tonalité au maxi¬ 
mum sur "graves” et ajuster le 
niveau d'enrgistrement . 

Il est possible qu'un filtrage plus 
efficace des fréquence harmoni¬ 
ques soit nécessaire. 

Entrer le programme Basic sans 
faire d'erreur, en particulier sur 
les DATA du programme en lan¬ 
gage machine, la recopie des ins¬ 
tructions REM est inutile. 


PRINCIPE DE LA 
MESURE DE FREQUENCE 

Se reporter au listing du pro¬ 
gramme désassemblé et com¬ 
menté. Une mesure commence 
aussitôt après la phase scrutation 
du clavier au moyen d'un détour¬ 
nement vers le programme de 
mesure. Cette méthode déjà 
décrite dans THEORIC n° 6, per¬ 
met de disposer du décompteur 
à 1 MHz ($304, $306) presque 
positionné à son maximum de 
capacité (60000]io dans ce pro¬ 
gramme) au début de la mesure. 
On commence par déterminer 
l'origine de la mesure par la'valeur 
du décompteur lors de l'arrivée 
du premier front montant. Dans 
le cas où il y a eu 255 boucles 
infructueuses de recherche de ce 
front, on cesse la mesure en 
fixant le drapeau N à 0 (silence). 
Le temps écoulé étant de l'ordre 
de 17,6 ms, la fréquence mini¬ 
mum mesurable est voisine de 
60 Hz, donc assez basse pour un 
instrument de musique. On 
recherche ensuite avec la même 
méthode la présence d'un front 
descendant. Si ce front existe, on 
détermine la position du second 
front montant par la valeur du 


décompteur et cette recherche 
est effectuée par une simple bou¬ 
cle car, à ce stade, ce front existe 
obligatoirement puisque le niveau 
logique analysé est stable à 1. La 
durée d'une période vient d'être 
mesurée et on fixe le nombre de 
périodes NT à 1. Si la durée de 
cette période est inférieure à 
environ 10 ms, une seconde 
période est mesurée et ainsi de 
suite jusqu'à ce que l'octet de 
plus fort poids ($7615) de la 
durée de NT périodes soit tel 
que ($7615) > ($7600 = (PEEK 
(#307))/6 (cf. instruction 90 du 
programme Basic). Une mesure 
de fréquence terminée, N est fixé 
à 1 (son présent). Un calcul de la 
valeur moyenne de la fréquence 
sur les trois dernières mesures est 
ensuite effectué. Après une ins¬ 
truction RTS, les valeurs des 
registres avant le détournement 
sont restituées, il y a ensuite fin 
de l'interruption (RTI). L'exécu¬ 
tion du programme Basic d'ex¬ 
ploitation a ensuite lieu jusqu'à la 
prochaine scrutation du clavier et 
un nouveau détournement vers le 
programme de mesure. Afin de 
transmettre le résultat d'une 
mesure le plus rapidement possi¬ 
ble, on fixe ($760F). Ainsi, une 
nouvelle mesure n'est plus pos- 


38 


sible tant que l'affichage ou les 
calculs en cours ne sont pas ter¬ 
minés, une nouvelle mesure ne 
sera possible que lorsque 
($760F) = 0 (cf. 1040, 1065 et 
3060, 3160 du programme en 
Basic). Les valeurs stockées dans 
les positions mémoires suivantes 
correspondent à : 

($7611) octet de poids faible 
($7612) octet de poids fort 

de la position 
du premier front montant 

($760A) octet de poids faible 
($760B) octet de poids fort 

de la position 
du NT e front montant 

($7610) = NT nombre de pério¬ 
des mesurées. 


($7614) octet de poids faible 
($7615) octet de poids fort 

durée en microsecondes 
des NT périodes mesurées 

REMARQUE : L'auteur a été ins¬ 
piré pour la conception de ce pro¬ 
gramme par deux excellents arti¬ 
cles parus dans le n° 6 de THEO- 
RIC : "Horloge et interruptions" 
pour le détournement du RTI, 
"Voice" pour la programmation 
du VIA, nécessaire pour identifier 
les fronts du signal appliqué sur 
l'entrée magnétophone. 

UTILISATION DU 
PROGRAMME BASIC 

La période de scrutation du cla¬ 
vier étant presque maximum, 


contrôler visuellement les carac¬ 
tères introduits à partir du clavier. 
La fonction accordeur détermine 
le nom de la note et son octave 
ainsi que la justesse du son au 
moyen d'un carré rouge mobile 
par rapport à la note juste maté¬ 
rialisée par un carré vert. Afin de 
retrouver la période de scrutation 
du clavier habituelle, il ne faut pas 
arrêter l'exécution du programme 
par CTRL C mais par la procédure 
d'arrêt prévue. 

Les indications de justesse de cet 
accordeur ont été vérifiées, elles 
coïncident très précisément lors¬ 
que l'on utilise une flûte à bec 
avec les indications d'un accor¬ 
deur électronique à aiguille de 
qualité. L'utilisation de ce logiciel 
devrait donc rendre de multiples 
services aux musiciens possé¬ 
dant un ORIC. 


0 REM **************************** 

1 REM * * 

2 REM * FREQUENCEMETRE/ACCORDEUR * 


C,EH:CALL#7620 

100 CLS: PRINT: PRINT’ FREQUENCEMETRE-ACCORDE 

3 REM * * 

4 REM * A.KOSTER (JANVIER'1986) * 


UR (MENU)’: PRINT: PRINT 


120 PRINT:PRINT’F FREQUENCEMETRE’:PRINT 

5 REM * * 

6 REM **************************** 


135 PRINT’A ACCORDEUR’:PRINT 


140 PRINT’M MESURE SIMPLE/MOYENNE’-.PRINT 

7 REM 


145 PRINT’N NOUVEAU DIAPASON’:PRINT 

8 REM INITIALISATIONS ET COMMANDES 


150 PRINT’E ARRET’:PRINT 

9 REM 


160 PRINT:PRINT* CHOISIR (F,A,M.N,E)‘ 

10 CLS:DIM L$(12):P0KE#760F,0 


165 M$=KEY$ 

20 FOR P=1 TÛ 12 


170 IF M$=’F’ THEN 1000 

30 READ L$(P) 


185 IF M$=’A" THEN 3000 

40 NEXT P 


188 IF M$=’M’ THEN CLS:G0T0 82 

50 DATA DO,DO#,RE,MI b,MI,FA,FA#,SOL,LAb,LA,S 


190 IF M$=‘N’ THEN 60 

I b, SI 


200 IF M$=’E’ THEN 4000 

52 PRINT:PRINT35,10;‘PATIENTEZ... ' 


210 GOTO 165 

55 FOR 1=17620 TO #7783 


985 REM ***************************** 

60 READA*:A=VAL(’#‘+A$):P0KEI,A :NEXTI 


990 REM CALCUL ET AFFICHAGE DE LA FREQUENCE 

70 CLS:PRINT:PRINT 1 FREQUENCEMETRE-ACCORDE 


995 REM ***************************** 

UR‘ 


1000 CLS:PRINT:PRINT’ FREQUENCEME 

72 PRINT:PRINT:PRINT 


TRE’:PRINT:PRINT 

75 PRINT'LA FREQUENCE DU DIAPASON EST EN GEN 


1002 PRINT’ LE RESULTAT D’UNE MESURE C0RRES 

ER-AL DE 440 HZ (LA3)‘ 


POND ’:PRINT 

77 PRINT:PRINT 


1004 PRINT’A L’AFFICHAGE DE LA FREQUENCE ET 

90 PRINT"F0URNIR VOTRE DIAPASON (HZ)‘:PRINT: 


DE LA’:PRINT 

INPUTFD 


1006 PRINT’ PERIODE EN MICROSECONDES DU SIGN 

82 PRINT:PRINT"CHOISI R LE TYPE DE MESURE DE 


AL ET*:PRINT 

FREQUENCE’:PRINT 


1008 PRINT’ DU NOMBRE DE PERIODES MESUREES.’ 

83 PRINT’ (S—>UNE SEULE MESUREi’:PRINT 


: PRINT:PRINT 

84 PRINT’OU (M--)MOYENNE DES TROIS PRECEDENT 


1010 PRINT"POUR CONTINUER,APPUYEZ SUR UNE T0 

ES ’:PRINT’MESURES)’:PRINT 


UCHE’:GETA$:CLS 

85 INPUT Z$:IF(Z$=’S’)0R(Z$=’M‘)THEN 86 ELSE 


1020 N=PEEK(#7613) 

85 


1030 IF N=0 THEN PL0T2,26,’ SILENCE R- 

86 IF Z$=’S’ THEN A1=#7610:A2=#7614 


-> RETOUR MENU":G0T01210 

88 IF Z$=“M’ THEN A1=#761E:A2=#761A 


1040 P0KE#760F,1:NT=PEEK(Al): IF NT=0 THEN 10 

90 D0KE#306,60000:EH= (PEEK(#307))/6:P0KE#760 


65 
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1050 TM=DEEK(A2)/NT 

1060 PRINT : PRINTINT(1/(TM*1E-6));'HZ 1 M NT(TM 
+0.5),NT 

1065 P0KE#760F,0 
1210 V$=KEY* 

1220 IF V*='R" THEN 100 ELSE 1020 
2985 REM **************************** 

2990 REM DETERMINATION DU NOM DE LA NOTE ET 
DE LA JUSTESSE 

2995 REM **************************** 

3000 TD=l/FD:LD=-LN(TD)-2.62818306 :CLS: LO RES 

0 

3001 PL0T5,7,*(50=1/4 DE TON) 

3002 S=0:PL0T2,5,*ACCORDEUR/NOM DE LA NOTE": 
PL0T2,21,*R—> RETOUR MENU* 

3003 FOR Q=3 TO 23 STEP 2 
3005 PL0T32,Q,17:NEXTQ 

3007 PL0T29.3, "50":PL0T30,13, "O":PLÛT28,23,* 

-50* 

3008 PL0T32,13,18 

3010 N=PEEK(#7613):IF N=1 THEN S=0:G0T0 3060 
3020 NN=0:FR=C 

3030 IF S=0 THEN PRINT323,13;" ":PL0T34 

,YP,16:S=1 
3040 V$=KEY$ 

3050 IF V$="R* THEN 100 ELSE 3010 

3060 P0KE#760F,1:NT=PEEK(#7610): IF NT=0 THEN 

PQKE#760F,0:G0TÛ3040 

3070 TM=DEEK(#7614)/NT 

3075 IF NN=1 THEN 3100 

3080 D0=( ■-LN(TM*1E-6)-LD)*1.44269504 :D1=INT( 
DO):D2=12*(DO—D1):D3=INT(D2) 

3090 NM$=L$(D3+1)+STR$(DI):FR=FD*2 A ((D3-9)/1 


5007 DATAAD, OD, 03,29,10, DO,23, AD,OD,03 

5008 DATA29,10,DO,IC,AD,OD,03,29,10,DO 

5009 DATA15,AD,OD,03,29,10,DO,OE,AD,OD 

5010 DATA03,29,10,DO,07,AD,OD,03,29,10 

5011 DATAFO,C5,AD,04,03,BD,11,76,AD,05 

5012 DATA03,BD,12,76,AD,11,76,C9,08,BO 

5013 DATA03,EE,12,76,4C,AF,76,A9,00,BD 

5014 DATA13,76,60,A9,10,8D,OD,03,A9,CD 

5015 DATABD,OC, 03,A2,00, E8, FO,EB,AD,OD 

5016 DATA03,29,10,DO,IC,AD,OD,03,29,10 

5017 DATADO,15,AD,OD,03,29,10,DO,OE,AD 

5018 DATAOD,03,29,10,DO,07,AD,OD,03,29 

5019 DATA10,F0,DA,A9,10,8D,0D,03,A9,DD 

5020 DATABD,OC,03,AD,OD,03,29,10,FO,F9 

5021 DATAAD,04,03,BD,OA,76,AD,05,03,BD 

5022 DATAOE,76,AD,OA,76,C9,OB,BO,03,EE 

5023 DATAOB,76,D8,38, AD, 11,76, ED, OA, 76 

5024 DATA8D,14,76,AD,12,76,ED,OB,76,8D 

5025 DATAIS,76,EE,10,76,AD,15,76,CD,OC 

5026 DATA76,90,BB,A9,01,BD,13,76,18,AD 

5027 DATA14,76,6D, 16,76, BD, 1 A, 76, AD, 15 

5028 DATA76,6D,17,76,BD,IB,76,13,AD,1A 

5029 DATA76,6D,18,76,BD,1A,76, AD, IB, 76 

5030 DATA6D,19,76,BD,IB,76,18,AD,10,76 

5031 DATA6D,1C,76,6D,1D,76,BD,1E,76,AD 

5032 DATA16,76,8D,18,76,AD,17,76,8D,19 

5033 DATA76,AD, 14,76,BD, 16,76,AD,15,76 

5034 DATABD, 17,76,AD,IC,76,BD,1D,76,AD,10,76 
,8D,IC,76,60 

Mo dIf I c at Ions OR IC-1 

PR 1 NT @ —> PLOT C52,3030,30951 

4000 POKEK230J64 

5000 D8T8A9,30,80,31,02,09,76,8D, 32, 02 


2+D1-3) 

3095 PRINTS23,13;" ":PL0T23,13,NM$:NN=Î 

3100 FM=1/(TM*1E-6):J=((FM-FR)/FM)*10G:Y=13- 
INT(J*10/2.B9) 

3110 IF Y<0 THEN Y=0 

3112 IF Y>26 THEN Y=26 

3120 PL0T34,YP,16:PL0T34,Y,17:YP=Y 

3130 IF Y<3 OR Y>23 THEN P=1 ELSE P=0 

3150 IF P=1 THEN NN=0 

3160 P0KE#760F,0:G0T0 3010 

3985 REM **************************** 

3990 REM REMISE EN ORDRE DU RTI ET DE LA SC 
RUTATION DU CLAVIER 
3995 REM **************************** 

4000 P0KE#24A,#40 
4010 D0KE#306,10000 
4020 END 

4985 REM **************************** 

4990 REM ECRITURE EN DATA DU PROGRAMME DE ME 
SURE DE FREQUENCE 

4995 REM **************************** 

5000 DATAA9,30,8D, 4B, 02,A9,76,8D,4C,02 

5001 DATAA9,4C, 8D, 4A, 02,60,48,8A,48,98 

5002 DATA48,20,3E,76,68,A8,68,AA,68,40 

5003 DATAAD,OF,76,FO,01,60, A9,00,SD,10 

5004 DATA76,A9,10, BD, OD,03,A9,DD,3D,OC 

5005 DATA03, A2,00,E8,FO,51, AD,OD,03,29 

5006 DAT A10,DO,31,AD T OD,03,29,10,DO,2A 


5001 081089,40,80,30,02,60,48,88,48,98 


DESASSEMBLAGE 

DU PROGRAMME 

DE MESURE DE 

FREQUENCE 




$7620 

8930 

LDA 

#$30 ' 


$7622 

8D4B02 

STA 

$024B 


$7625 

A976 

LDA 

4t$76 


$7627 . 

8Ü4C02 

STA 

$024C 

D o t. o li r n o m c- n 1 . d e 

$762A 

A94C 

LDA 

#$4C 

1 ’ interruption 

$762C 

8D4A02 

STA 

$024A. 


$762F 

60 

RTS 



$7630 

48 

PHA 

" 


$7631 

8 A 

TXA 


Sau regarde des 

$7632 

48 

PHA 


r e 9 istres 

$7633 

98 

TTA 



$7634 

48 

PHA 

. 


$7635 

203E76 

JSR 

$763E 

Ue r s Pr 9 . 

$7638 

68 

PLA 



$7633 

A 8 

TAT 



$763A 

68 

PLA 


Restitution des 

$763B 

AA 

TAX 


reg istres 

$763C 

68 

PLA 



$763D 

40 

RTI 



$763E 

AD0F76 

LDA 

$760F' 

Ne mesure que 

$7641 

F001 

BEQ 

$7644 

si C $760F1=0 


40 





$7643 

60 

RTS 

J 


$7644 

0900 

LD0 

#$00 1 


$7646 

801076 

ST 0 

$7610J 

NT = 0 

$7649 

0910 

LD0 

#$10 ■ 

Initialisation 

$764B 

800003 

ST0 

$030D 

$764E 

09DD 

LD0 

#$DD 

sur front 

$7650 

8D0C03 

ST0 

$030C. 

montant 

$7653 

0200 

LDX 

#$00 ' 


$7655 

E8 

I NX 



$7656 

F051 

BEQ 

$7609 


$7658 

000003 

LD0 

$030D 


$765B 

2910 

0ND 

#$10 


$765D 

D031 

BNE 

$7690 


$765F 

0D0D03 

LD0 

$0300 


$7662 

2910 

0ND 

#$10 


$7664 

D020 

BNE 

$7690 


$7666 

0D0D03 

LD0 

$030D 

« 

$7669 

2910 

0ND 

#$10 


$766B 

D023 

BNE 

$7690 

Reconnaissance 

$7660 

0D0D03 

LD0 

$0300 

du premier 

$7670 

2910 

0ND 

#$10 

front montant 

$7672 

00 IC 

BNE 

$7690 


$7674 

0D0O03 

LD0 

$030D 


$7677 

2910 

0ND 

#$10 


$7679 

0015 

BNE 

$7690 


$767B 

PD0D03 

LD0 

$030D 


$767E 

2910 

0ND 

#$10 


$7680 

D00E 

BNE 

$7690 


$7682 

0D0D03 

LD0 

$030D 


$7685 

2910 

0ND 

#$10 


$7687 

0007 

BNE 

$7690 


$7689 

000003 

LD0 

$0300 


$768C 

2910 

0ND 

#$10 


$768E 

F 0C5 

BEQ 

$7655. 


$7690 

0D0403 

LD0 

$0304" 


$7693 

8D1176 

STB 

$761 1 


$7696 

000503 

LD0 

$0305 


$7699 

801276 

ST0 

$7612 


$769C 

001176 

LD0 

$7611 

Inst an t origine 

$769F 

C908 

cnp 

#$08 

e 9 a 1 ça leur 

$7601 

B003 

BCS 

$7606 

du de'compteur 

$7603 

EE1276 

INC 

$7612. 


$7606 

4C0F76 

jnp 

$760F 


$7609 

0900 

LD0 

#$00 1 


$760B 

801376 

ST0 

$7613. 

N=0 C si 1 e n c e 1 

$760E 

60 
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$760F 

0910 

LD0 

#$10 ‘ 

InIt ia l isation 
sur front 

$76B 1 

8D0D03 

ST0 

$030D 

$76B4 

09CD 

LD0 

#$CD 

$76B6 

8O0C03 

STB 

$030C. 

descendant 

$76B9 

0200 

LDX 

#$00 ' 


$76BB 

E8 

I NX 



$76BC 

F0EB 

BEQ 

$7609 


$76BE 

0D0D03 

LD0 

$0300 


$76C1 

2910 

0ND 

#$10 


$76C3 

001 C 

BNE 

$76E 1 
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LD0 
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7910 

0ND 

tt$ 1 0 
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$76E 1 
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0O0D03 
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Reconnaissance 

$76CF 

2910 

0ND 
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$76D 1 

D00E 
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descendan t 
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0D0503 
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$0305 

Position de ce 

$76FB 
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cnp 
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B003 
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INC 
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( 
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* 
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0D1576 

LOB 

$7615' 


$7722 

CD0C76 
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18 
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SUITE 


PROGRAMME c 

Synthèse des programmes TEX- 
RAM et RAMHIR. Ce programme 
assure la liaison de ces deux pro¬ 
grammes ; ainsi, lorsque vous 
voudrez utiliser ce programme de 
transfert, il vous suffira de char¬ 



ger les programmes TEXRAM, 
RAMHIR et SYNTHE, de lancer 
l'initialisation. Ainsi, à chaque 
transfert que vous voudrez effec¬ 
tuer, il vous suffira de taper "!HT 
[RETURN]". 

Programme source : SYNTHE. 
SRC 

Le programme, une fois assem¬ 
blé, se trouve entre les adresses 

# 90A0 et # 90FD. Comme pour 
les deux autres programmes, il 
est possible de changer l'adresse 
d'assemblage en modifiant l'ORG 

# 90A0. 

ATTENTION ! Si vous avez modi¬ 
fié les directions des programmes 
en TEXRAM.SRC et/ou RAMHIR. 
SRC, il vous faut modifier les 
deux lignes suivantes du pro¬ 
gramme SYNTHE.SRC : 


1350 "TEXRAM:EQU &9250 
1360 "RAMHIR:EQU &9219 

— eh 1 950 il suffit de remplacer 
&9250 par la nouvelle origine. 

— Par contre, en 1960, il faut 
remplacer &9219 par l'adresse 
contenue dans l'étiquette "PRO" 
du programme RAMHIR. SRC 
obtenue en faisant !S après 
assemblage de celui-ci à la nou¬ 
velle adresse. 


LISTING 1 


Programme en data SYNTHE. 
DAT (à lancer par un RUN). 

LISTING 2 



UTILISATION DU 
PROGRAMME ASSEMBLE 

Tout d'abord, sauvegardez les 
trois programmes TEXRAM, 
RAMHIR, SYNTHE, assemblés 
par un (C)SAVE " ”,A#90A0, 
E# 9285,AUTO. 

Pour utiliser le tout, vous n'aurez 
plus qu'à le charger à la mise en 
route de l'ORIC et, à chaque fois 
que vous voudrez effectuer un 
transfert TEXT— HIRES, vous 
n'aurez qu’à taper !HT [RETURN]. 
Mais il vous faut faire attention 
qu'à chaque modification de la 
routine ! il vous fqudra relancer le 
programme par, un CALL # 90A0 
afin de repositionner cplui-ci. 
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PROGRAMME d 
TEXHIR 

Pour prouver à ceux qui nous ont 
rejoints récemment que le 
"machine” est plus rapide que le 
"Basic", voici la version Basic 
des programmes précédents. 

Ce programme exécute en un 
bloc le transfert de l'écran TEXT 
en HIRES. 

LISTING 3 

UTILISATION 

Un RUN suffit pour le lancer. A 
la suite de quoi le programme 
vous demande l'adresse de début 
du transfert, ici # BB80. 

C'est ainsi que environ 2 minu¬ 
tes 40 secondes après avoir tapé 
RETURN, le transfert prend fin. 
Avouez que cela est légèrement 
plus long que le "machine" ! 

ANNEXE 

Comment j'ai trouvé (par hasard) 
grâce à l'ORIC.1 une bogue de 
l'ATMOS. 

J'ai réalisé un programme Basic 
sur l'ORIC-1. Ce programme 
n'utilise aucune routine du Basic 
(aucun CALL en ROM), ni même 
une des variables système des 
pages 0 et 2. 

Le programme fonctionnant nor¬ 
malement sur mon ORIC-1, j'ai 
décidé de l'essayer sur ATMOS. 
Je charge donc le programme, je 
le lance, et alors... Surprise ! il ne 
fonctionne pas. 

Après une longue recherche, j'ai 
fini par découvrir la cause du mal. 
Pour tous ceux d'entre vous qui 
avez un ATMOS ou un ORIC 
avec ROM V1.1, tapez le pro¬ 
gramme (de démonstration) sui¬ 
vant : 

10 X = 0:A= 10:B = 10 
20 IF X = 0 THEN A=1:B=1 
ELSE A = 0:B = 0 
30 PRINT A,B 


Ce programme doit évidemment 
afficher à l'écran 1 1. 

Alors, lancez-le, vous avez la 
chance de voir : 1 0. 

(Le même programme sur ORIC-1 
donne bien 1 1). 

Ceci est bien une bogue de la 
ROM de l'ATMOS. On constate 
ainsi que dans un IF THEN ELSE 
il ne peut y avoir qu'UNE SEULE 
instruction après le ELSE. 
Maintenant, prenez donc le 
manuel de l'ATMOS (version 
française) aux pages 163, 164. 
A la page 164, on peut lire : 
"Le contrôle passe alors à la ligne 
suivante, sauf si ELSE a été uti¬ 
lisé, auquel cas les instructions 
suivant ELSE sont effectués." 
Vous voyez donc qu'il s'agit bien 
là d'une ERREUR. Donc, méfiez- 
vous, surtout les programmeurs 
d'ORIC-1, car vos programmes 
ne fonctionneront pas sur 
ATMOS et vice-versa. 

RESUME 

SUR ORIC-1 : 

10 IF A = 1 THEN B= 1 ELSE 
B = 0:C = 1 
équivalent à : 

10 IF A = 1 THEN B = 1 ELSE 
B = 0 

20 IF Aol THEN C=1 

SUR ATMOS : 

10 IF A = 1 THEN... 
équivalent à : 

10 IF A = 1 THEN B= 1 ELSE 
B = 0 
20 C=1 

Ce qui est bien entendu totale¬ 
ment différent de l'ORIC-1. Ceci 
étant, j'espère que cela pourra 
vous éviter de longues heures de 
recherche d'une erreur qui n'en 
est pas une. 




1000 

1010 

1020 

1030 

1040 

1050 

1060 

1070 

1080 

1090 

1100 

1110 

1120 


PROGRAMME DE SYNTHESE 
DES PROGRAMMES ’TEXRAM’ 
ET ’RAMHIR’ 


(01985 A.T0RT0SA 


SOURCE POUR ASSEMBLEUR M0NASM 


1130 

1140 

1150 

1160 

1170 

1180 

1190 

1200 

1210 

1220 

1230 

1240 

1250 

1260 

1270 

1280 

1290 

1300 


DETOURNEMENT+SAUVEGARDE DU 

■INIT: EQU $90A0 

1 0RG INÎT 

" LDA P0INEX 

' LDX POINEX+1 

“ STA SAVP0I 

1 STX SAVP0I+1 

’ LDA #>SYNTHL 

" LDX #<SYNTHL 

* STA P0INEX 

‘ STX POINEX+1 

1 RTS 

i 

; DONNEES INIT 

5 

■POINEXiEQU $2F5 
*SAVP0I:DFB $0,0 


1310 ; 


1320 ;- 

1330 ; PROGRAMME DE SYNTHESE 

1340 ;- 

1350 “TEXRAM:EQU $9250 
1360 * RAMHIR:EQU $9219 
1370 ; 

1380 ; TEST SYNTAXE ’! HT’ 


1390 ; 

1400 "SYNTHLcLDA $36 
1410 1 CMP #$48 ;’H’ 
1420 ' BEQ OKI 
1430 “N0N0K: JMP (SAVP0I) 
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super i *rc ) M( j'r j c ) isi de: 


ER I ISI T KMJ >S 


Attention let=. quantités sont limitées. . . Profitez—en ! 


REMISE : 1 TITRE + 1 LIVRE 

2 TITRES + 1 LIVRE : 

3 TITRES (ou plus) + 

TITRE Prix normal 

BASIC TURBO.140 

ORDI TIERCE. 140 

SUPERCOPY.(hard copy GP100).... 120 

CHALLENGER. (Othello). 130 

DOSSIER G.(affaire Green Peace) 140 


- 30 % 

- 40 % 

1 LIVRE : -50% 

TITRE prix normal 

HISTORIC. (éducatif). 100 

PLANETE BLEUE, (éducatif). 120 

TORTUE LOGIC. (LOGO). 150 

MOTS CROISES. 150 

LIVRE ”AU COEUR DE L’ATMOS”. 75 


Il existe 
utilisant 


bien d’autres titre COBRA SOFT, demandez le catalogue 86 en 
le bon de commande ci-dessous et en précisant "Catalogue”. 


BON DE CQJQtAJTDE 


Veuillez me faire parvenir les titres suivants : 
à cette adresse : 1/. 


2 /. 

Nom :. 3/.. 

4/.. 

adresse.. 5/ AU COEUR DE L’ATMOS. 

. Total normal : 

Code. Ville . Remise : 

TOTAL DU : 


Renvoyer ce bon de commande avec le chèque de réglement 
à : COBRA SOFT BP 155 71104 Chalon-sur-Saône cedex 
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Eric VIEL 


L éonard, suite de notre 
DAO 100 % langage 
machine commencé dans 
le dernier numéro. La fin 
de l'article dans 
THEORIC n° 19 concer¬ 
nera les possesseurs 
d'ORIC. 


Avant tout, il vous faut taper le 
programme qui suit. ATTEN¬ 
TION : ne vous trompez pas de 
version ! Il y a une version pour 
ATMOS, une pour ORIC-1. Sau¬ 
vegardez le programme généré à 
la suite de MENU.LEO, que vous 
avez créé le mois dernier. Etei¬ 
gnez, puis rallumez votre ordina¬ 
teur, et chargez à suivre 
MENU.LEO et LEO.BIN. Restez 
en mode texte et tapez CALL 
# 5C00. Vous devez voir apparaî¬ 
tre le message MODRE HIRES 
REQUIS. Si ce n'est pas le cas, 
vérifiez le listing, il y a sûrement 
une erreur dedans. Ceci ne sera 
pas à refaire lors de chaque utili¬ 
sation de LEONARD, il s'agissait 
d'une vérification. Passez main¬ 
tenant en mode HIRES, et tapez 
CURSET 0,0,3. Ceci active les 
commandes graphiques. Vous 
devez le faire juste après le char¬ 
gement. Après, point n'est 
besoin ! Par contre, il vous fau¬ 
dra taper DOKE #2F5, #600 
avant chaque utilisation. Ceci a 
pour effet d'activer la commande 
Il vous suffit maintenant de 
taper ! suivi de RETURN pour 
entrer dans Léonard. Allez-y, 


faites-le. 

Si tout se passe bien, le menu 
doit s'afficher instantanément. 
Vous voyez également un 
crayon. Déplacez-le à l'aide des 
touches de curseur jusqu'à la . 
case marquée REMP et pressez la 
barre d'espace. La case POINT, 
qui était en inversion vidéo, 
repasse en mode normal, et la 
case REMP passe à son tour en 
inversion vidéo. Vous venez de 
sélectionner la fonction REMP, 
c'est-à-dire la fonction Remplis¬ 
sage. Sélectionnez maintenant la 
fonction POINT et pressez la tou¬ 
che ESCape. Le menu s'efface, 
et la page HIRES apparaît dans 
toute son intégralité. Déplacez le 
crayon et pressez la barre d'es¬ 
pace. Ecartez le crayon de quel¬ 
ques pixels. Vous voyez un point 
allumé à l'endroit où vous aviez 
pressé espace. Pour retourner au 
menu, pressez à nouveau la tou¬ 
che ESC. 

En bref, vous vous déplacez à 
l'aide des touches fléchées, vous 
validez à l'aide de la barre d'es¬ 
pace et passez du menu au des¬ 
sin ou du dessin au menu par la 
touche ESC. 



REMARQUE : Lorsque vous êtes 
au menu, vous voyez une partie 
de votre dessin, mais vous ne 
pouvez pas le modifier. Il vous 
faut presser ESC pour ce faire. 
Retournez maintenant au dessin, 
en mode POINT. Pressez la tou¬ 
che Shift, puis une des 4 touches 
fléchées. Le crayon se déplace en 
laissant une trace sur son pas¬ 
sage. 
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Pour la plupart des fonctions, le 
schéma de fonctionnement est le 
même : vous validez, dans le 
menu, l'option désirée, vous 
pressez ESC pour passer au des¬ 
sin, et vous exécutez la fonction 
en pressant la barre d'espace. 
Après cette introduction, voyons 
maintenant plus en détail les 
fonctions de Léonard. 

LES FONCTIONS 
GRAPHIQUES 

POINT 

Permet de dessiner un point à 
l'écran. Espace = Validation. Peut 
être utilisé conjointement avec 
Shift. 

DROITE 

Pointez le point initial de la droite 
en pressant la barre d'espace. 
Déplacez-vous jusqu'à la seconde 
extrémité de votre droite et pres¬ 
sez la barre d'espace. Une droite 
apparaît en joignant les deux 
extrémités ainsi pointées. 

LIGNES 

Cette fonction sert à tracer plu¬ 
sieurs droites dont l'extrémité de 
la précédente est le début de la 
suivante. Même fonctionnement 
que DROITES. 

CERCLE 

Pointez le centre du cercle. A par¬ 
tir de ce moment, les déplace¬ 
ments verticaux sont interdits 
(déplacement sur Y). Ecartez- 
vous du centre et pressez une 
seconde fois la barre d'espace. 
Un cercle apparaît, ô miracle ! 

RECTANGLE 

Validez un coin de votre rectan¬ 
gle. Puis deplacez-vous. Un rec¬ 
tangle en pointillé apparaît. Une 
fois la taille voulue, pressez la 
barre d'espace. Le rectangle 
apparaît alors en trait plein. 

REMPLIS 

Positionnez le curseur à l'intérieur 
d'une surface fermée, et pressez 
la barre d'espace. La surface se 
remplit. 

INVERSION 

Pressez une fois la barre d'espace 
puis déplacez le crayon. Un cadre 
s'ouvre. Pressez la barre d'es¬ 


pace : tout ce qui était dans le 
cadre passe en inversion vidéo 
(vidéo reverse : les points allumés 
s'éteignent, les points éteints 
s'allument I). 

CARACTERE 

Permet d'écrire des caractères 
entrés à partir du clavier sur 
l'écran. Choisissez l'endroit du 
premier caractère et pressez la 
barre d'espace. Vous pouvez 
taper votre texte, comme sur une 
machine à écrire. Mais attention ! 
en fin de ligne, le retour à la ligne 
n'est pas engendré automatique¬ 
ment. Une fois vos caractères 
entrés, pressez RETURN ou ESC 
pour sortir de la fonction. Vous 
reprenez le contrôle du crayon 
avec les flèches et pouvez recom¬ 
mencer plus loin. 

NOTE : Vous êtes automatique¬ 
ment mis en mode minuscules. 
Pour obtenir les majuscules, pres¬ 
sez Shift + touche désirée. 

LES FONCTIONS 
D'EFFACEMENT/ 

LE PARAMETRAGE 
DES FONCTIONS 

PARAM 

Définit le paramètre Fond/Devant 
de l'ORIC. 1 — Les points seront 
tracés de la couleur de l'encre ; 
2 — les points seront tracés de 
la couleur du fond = efface¬ 
ment ; 0 — les points seront en 
inversion vidéo. Utiliser la valeur 
0 revient à utiliser une gomme 
d'une précision d'un pixel (point- 
écran). Ce paramétrage affecte 
les fonctions point, droite, ligne, 
rectangle, cercle et caractère. 

TRAIT 

Définit le motif binaire pour le 
tracé des droites ( = PATTERN). 
Pour avoir un pointillé, deux 
points alllumés, deux points 
éteints, il suffit de prendre le 
modèle sur 8 bits : 1 1001100 et 
de le coder en décimal : 1*128 + 

1 *64 + 0*32 + 0*16+1*8+1* 
4 + 0*2 + 0*1 =204 et de la ren¬ 
trer. Cette fonction est activée 
dès que vous la sélectionnez dans 
le menu. Une fois la valeur ren¬ 
trée, pressez RETURN. En cas 
d'erreur, pressez DEL. Si vous 
avez activé cette fonction par 
erreur, pressez ESC. 


GOMME 

Le crayon est remplacé par un 
pavé de 6 x 8 que vous déplacez 
de la même manière que le 
crayon. Lorsque vous pressez la 
barre d'espace, tout ce qui se 
trouvait sous le pavé est effacé. 
De même que pour la fonction 
POINT, vous pouvez utiliser la 
touche SHIFT. 


EFFACE 

Efface tout l'écran. Sélectionnez 
la fonction, passez au dessin par 
la touche ESC. Là, deux choix : 
espace efface le dessin, ESC 
revient au menu. 

LES FONCTIONS SPECIALES 
LPT 

Permet la recopie de l'écran sur 
l'imprimante. Vu le nombre d'im¬ 
primantes compatibles ORIC, il 
n'a pas été possible de faire une 
routine compatible pour toutes. 
J'ai donc laissé une porte de sor¬ 
tie pour que vous puissiez implan¬ 
ter votre propre routine de Hard- 
copy. Implantez-la à partir de 
l'adresse #5900. Elle doit être 
terminée par RTS. Pour l'utiliser, 
sélectionnez LPT au menu, pas¬ 
sez au dessin et pressez la barre 
d'espace. ATTENTION : Risque 
de plantage si vous n'avez pas 
implanté la routine. 

SCROLL 

Sélectionnez la fonction, passez 
en mode dessin et pressez la 
barre d'espace. A l'aide des tou¬ 
ches de curseur droit et gauche, 
vous déplacez latéralement votre 
dessin. 

MEMO 

Léonard possède deux pages gra¬ 
phiques, la première, l'écran 1, 
est celle que vous voyez. La 
seconde, l'écran 2, est une page 
rangée en mémoire. La fonction 
MEMO permet d'inverser ces 
deux pages. 

COUPER 

Permet de recopier une série de 
6*n pixels de l'écran dans l'écran 
2. Vous pouvez alors inverser les 
deux écrans (fonction MEMO) 
afin de modifier la partie ainsi 
recopiée (scroller... ). 
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COLLER 

Permet de recopier la série de 
6*n pixels isolés dans l'écran 2 
avec la fonction couper dans 
l'écran 1, sur une autre série de 
6*n pixels. Si vous désirez un 
décalage différent de 6, scrollez 
la partie isolée dans l'écran 2. 


LES CARACTERISTIQUES 
TECHNIQUES DU LOGICIEL 

Il est logé en mémoire vive (!) à 
partir de # 5C00 jusqu'à environ 

# 7000 (variable suivant les ver¬ 
sions). Le second écran est 
implanté de # 7000 à # BFBO. Le 
dessin du menu est implanté de 
#8FB0 à # 97FF. 

Pour les possesseurs du disque, 
il ne vous est pas possible d'uti¬ 
liser la fonction Il vous faut 
donc taper à chaque fois CALL 

# 5C00 pour entrer dans LEO¬ 
NARD. 

Le gros problème rencontré lors 
de la réalisation de ce logiciel a 
été le manque de place, car le 
programme et l'Assembleur 
approchaient les 48 ko de l'ORIC. 
Ceci explique donc les carences 
de certaines fonctions et l'ab¬ 
sence de fonctions de sauve¬ 
garde/chargement. 

Si vous désirez sauvegarder votre 
travail, deux possibilités : sauver 
l'écran que vous voyez par 
CSAVE "ECRAN 1", A#A000, 
E#BFE0 mais les possesseurs 
d'ORIC 1 auront un trait gênant, 
ou bien sauver le deuxième écran 
par CSAVE "ECRAN 2, 
A# 7000, E#8FB0. Vous pourrez 
alors le faire apparaître en tapant 
le programme donné en annexe. 
Pour ceux à qui le dessin du 
crayon ne conviendrait pas, il est 
possible de le modifier, comme 
pour un caractère normal. En 
conséquence, définissez le nou¬ 
veau curseur sur une grille de 
6x8, et tapez les instructions 
suivantes : 

POKE # 5C45, valeur de la pre¬ 
mière ligne. 

POKE # 5C4A, valeur de la 
seconde ligne. 

POKE #5C4F, valeur de la troi¬ 
sième ligne. 

POKE # 5C54, valeur de la qua¬ 


trième ligne. 

POKE #5C59, valeur de la cin¬ 
quième ligne. 

POKE #5C5E, valeur de la 
sixième ligne. 

POKE #5C63, valeur de la sep¬ 
tième ligne. 

POKE #5C68, valeur de la hui¬ 
tième ligne. 

C'est le point en haut à gauche 
qui sert pour désigner les points 
à valider. Ne redéfinissez pas non 
plus un curseur invisible (0, 0, 0, 
0, 0, 0, 0, 0,). 

Afin de rester compatible avec le 
lecteur de disque, il n'a pas été 
possible d'utiliser la page 4 (de 
#400 à #4FF). J'ai donc été 
obligé d'utiliser la page 5. Or, le 
problème qui se pose est que la 
page 5 est la page pour le début 
du Basic. Il n'est donc pas possi¬ 
ble d'avoir un programme Basic 
en même temps que LEONARD, 
sauf si l'on ruse... Tapez tout 


d'abord HIMEM #5500 afin de 
protéger LEONARD. Puis tapez 
DOKE #9A, # 600:NEW. Ceci a 
pour effet de charger des anciens 
programmes, de même que les 
programmes ainsi générés ne 
peuvent être utilisés sans dépla¬ 
cer le Basic. 

A noter également le fait qu'il 
n'est pas possible d'accéder aux 
huit lignes du bas, à la première 
ligne du haut, et aux 6 colonnes 
du côté droit. Si vous désirez 
quand même y écrire quelque 
chose, il faut utiliser, soit la fonc¬ 
tion scroll, soit les fonctions 
COUPER/COLLER. 

Surtout, n'hésitez pas à faire des 
copies si vous avez modifié le 
curseur, ou autre modifications 
personnelles, mais conservez 
quand même un original, en cas 
de problème... 

Voilà, je pense vous avoir tout dit 
bon courage pour la frappe, et 
beaux dessins ! 



0 HIMEM#5QOO 

100 REM- 

110 REM 

120 REM LEONARD 

130 REM 

140 REM PARTIE No 2 
150 REM 

160 REM - 

170 REM VERSION ! ATMOS ! 

180 REM - 

190 REM 

200 REM COPYRIGHT ERIC VIEL 1986 
210 REM 

220 REM- 

230 : 

240 D0KE#306,#FFFF 
250 TEXT-.CLS 

260 FOR I=#5C0Q TO #6C97 STEP 8 

265 : FOR J=I TO 1+7 

270 : READ DTA$ : DT A=VAL (“#"+DTA$) 

280 : POKE J,DTA:S=S+DTA 
290 : NEXT J 

300 : READ CS: IF SOCS THEO PRINT’ERREUR LIGNE 



2000G+L:END 


310 : S=0:L=L+10:NEXT I 

320 PRINT:PRINT"PREPAREZ VOTRE MAGNETO ET PRESSEZ UNE TOUCHE":GETR$ 
330 CSAVE’LEO.BIN',A#5 COQ,E#6CAO 
340 END 

20000 DATA AD,C0,Q2,C9.03,F0,1B,D0,1046 
20010 DATA 12,4D,4F,44,45,20,48,49,488 
20020 DATA 52,45,53,20,52,45,51,55,583 


20030 DATA 49,53,00,A9,09,A0,5C,4C,662 
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24910 DATA 06,OA,OA,4A,4A,09,40,91,392 
24920 DATA 08, C8,CC,3D,05,BO,03,4C,733 
24930 DATA 55,6B, 18,A5,06,69,28,85,665 
24940 DATA 06,A5,07,69,00,85,07,18,447 
24950 DATA A5,08,69,28,85,08,A5,09,633 
24960 DATA 69,00,85,09,CA,DC,CC,60,957 
24970 DATA 50,72,65,73,73,65,7A,20,780 
24980 DATA 52,45,54,55,52,4E,20,70,624 
24990 DATA 6F,75,72,20,76,61,60,69,802 
25000 DATA 64,65,72,2E,00,20,3A,6Î,558 
25010 DATA 20,CE,CC,A9,88,A0,6B,20,1046 
25020 DATA B0,CC,20,E8,C5,48,2O,3A,1003 
25030 DATA 6B,68,C9,0D,D0,0D,A9,11,832 
25040 DATA 8D,57,6B,20,3A,6B,A9,51,782 
25050 DATA 8D,57,6B,EA,20,54,5D,20,B10 
25060 DATA 30,5D,20,0C,5D,20,CE,CC,720 
25070 DATA 20,49,68,20,BC,5C,4C,7C,72î 
25080 DATA 5D,58,20,E8,C5,78,48,C9,1035 
25090 DATA 08,F0,0D,C9,09,F0,09,C9,921 
25100 DATA IB,DO,EE,58,68,4C,7C,5D,958 
25110 DATA 20,0C,5D,A9,Q0,85,06,A9,614 
25120 DATA AO,85,07,68,18,08,C9,09,646 
25130 DATA F0,2A,A2,C8,A0,27,B1,06,1026 
25140 DATA 29,2A,0A,2A,08,4A,4A,09,299 
25150 DATA 40,91,06,88,10,FO,20,55,724 
25160 DATA 6C,28,IB,08,CA,DO,E5,28,859 
25170 DATA 20,30,5D,20,0C,5D,2O,BC,530 
25180 DATA 5C,4C,E1,6B,A2,C8,AO,00,1022 
25190 DATA B1,06,0A,0A,28,6A,4A,6A,529 
25203 DATA 08,09,40,91,06,CB,CO,28,664 
25210 DATA DO,EE,20,55,60,28,18,08,743 
25220 DATA CA,D0,E3,F0,D2,18,A5,06,1282 
25230 DATA 69,28,85,06,A5,07,69,00,561 
25240 DATA 85,07,60,20,75,67,A9,08,665 
25250 DATA 80,29,05,20,75,67,A9,27,647 
25260 DATA 8D,07,03,A9,10,8D,06,03,486 
25270 DATA A9,01,8D,50,05,20,DO,61,733 
25280 DATA 20,0C,5D,A9,FF,8D,QC,02,716 
25290 DATA A9,27,8D,07,03,A9,10,8D,685 
25300 DATA 06,03,60,55,55,55,55,55,530» 



TELEPHONE 

Une ligne téléphonique est à 
votre disposition, vous mettant 
en contact direct avec la rédac¬ 
tion. Ceci est un service sans 
égal ! Respectez simplement les 
horaires et les jours que nous 
vous indiquons : 

MERCREDI de 9 h à 12 h et de 
14 h à 17 h. 

VENDREDI de 9 h à 12 h seule¬ 
ment. 

Tout appel en dehors de ces cré¬ 
neaux sera refoulé : ne dépensez 
pas inutilement votre 1 argent ! 
Le numéro : 99.52.98.11. 


Deux recopies d'écran 


C ertains anciens numéros de THEORIC étant devenus dif¬ 
ficiles à trouver, nous vous proposons en bref (c'est-à- 
dire sans listing commenté) deux recopies d'écran. La 
première, pour JASMIN-PRINTER (ou Brother Ml 009 ou encore 
CENTRONICS GLP 3101) avait été publiée sous la plume de 
Pierre BEAUFILS. Un certain "Benoît" nous propose la seconde, 
adaptant le programme de Philippe RUIZ (pour GP 50) sur 
GP 500). 


<I<I<<3<<<I<1<<1<<<<<I<1<3<I<<<1<<I< 

1 REM RECOPIE HIRES SUR M1009 

2 REM CODES EN DATA 

3 REM ROUTINE EN #7200 

4 REM SAUVEGARDER, FAIRE RUN PUIS 

5 REM CALL #7200 

6 REM 

7 REM 

10000 FORN=#7200TO#72E1 : READD$:D=VAL("# * +D$ >:P0KEN,D:NEXT 
10010 DATA AD.CD,F5,C9,03,D0,0D,A9,Cl,8D,48,72,A9,3D,8D,44,72,EE,45,72 
10020 DATA A9,40,8D,0E,03,A9,00,85,00,A9,A0,85,01,A9,19,85,06,20,4A,72 
10030 DATA 18,A5,00,69,40,B5,00,A9,01,65,01,95,01,C6,06,D0,EC,A9,1B,20 
. 10040 DATA 47,72,A9,32,20,47,72,20,04,E8,60,4C,7B,F5,A5,00,85,02,A5,01 

10050 DATA 85,03,A9,1E,20,47,72,A9,4B,20,47,72,A9,F0,20,47,72,A9,00,20 
10060 DATA 47,72,A9,F0,85,07,A9,05,85,08,20,96,72,C6,08,10,0A,A9,05,85 
10070 DATA 08,E6,02,D0,02,E6,03,C6,07,D0,EB, A9, IB,20,47,72,A9,33,20,D9 
10080 DATA 72,A9,0A,20,47,72,60,EA,EA,EA,A9,00,85,0A,A5,02,85,04,A5,03 
10090 DATA 85,05,A9,08,B5,09,A0,00,B1,04, C9,20,10,02, A9,00,A6,08,4A,CA 
10100 DATA 10,FC,66,0A,18,A5,04,69,28,85,04,A5,05,69,00,85,05,C6,09,D0 
10110 DATA DF,A5,0A,A2,08,0A,66,0B,CA,D0,FA,A5,0B,20,47,72,60,20,47,72 
10120 DATA A9,17,20,47,72,60 




2 ’HARD COPY ATMOS>GP550 

3 'BRICOLE PAR BENOIT 
5 HIMEM#7213 

10 F0RN=#7214T0#72F5 
20 READA$:A=VAL("#"+A$) 

30 POKEN,A:NEXT 

50 DATAA9,40,8D,0E,03.A2,0A,B5,00 

60 DATA9D,00,04,CA,10,F8,A9.00,85,00,A9,A0,85,01,A9,19 
70 DATA85,06,20,5E,72,18,A5,00,69,40,85,00,A9,01,65,01 
80 DATA85,01,C6,06,D0,EC,A2,0A,BD,00,04,95,00 , CA , 10,F8 
90 DATAA9,1B,20,5B,72,A9,36,20,5B,72,20,3D,E9,60,4C,C1,F5,A5,00 
100 DATA85,02,A5,01,85,03,A9,IB,20,5B,72,A9,47,20,5B,72,A9,34 
110 DATA20,5B,72,A9,38,4C,E8,72,A9,F0,85,07 

120 DATAA9,05,85,08,20,AA,72,C6,08,10,0A,A9,05,85,08,E6,02,D0,02 
130 DATAE6,03,C6,07,D0,EB,A9,1B,20,5B,72,A9,39,20,5B,72,A9,0A 
140 DATA20,5B,72,60,EA,EA,EA,A9,00,85,0A,A5,02,85,04,A5,03 
150 DATA85,05,A9,08,85,09.A0,00,B1,04,C9,20,10,02,A9,00,A6,08 
160 DATA4A,CA,10,FC,66,0A,18,A5,04,69,28,85,04,A5,05,69,00 
170 DATA85,05,C6,09,00,DF,A9,00,20,5B,72,A5,0A,20,5B,72,60 
180 DATA20,5B , 72 , A9,30.20,5B , 72,4C , 7A , 72 , EA , EA . EA , EA , EA 
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■ Livres et cassettes pour 


— Un jeu d'arcade 
en langage machine 
sur un thème que 
personne n ’avait osé 
aborder... 


— Un é 
assembleur de 
ception profe, 
nelle à un prix 
égal. 9 

£?Vt$€ 


MICROLOGIE 

préiente 


ORICl ETATMOS 


— Enfin un jeu 
d’arcade en langage 
machine pour les 
tout petits ! 


BON DE COMMANDE 


Nom 


A retourner aux Editions SORACOM — La Haie de Pan — 35170 BRUZ 
.Prénom . 


Adresse 


Livres 

□ Communiquez avec votre ORIC-1 ATMOS .145 F 

□ Mieux programmer sur ORIC-1 et ATMOS.110F 

□ Apprenez l’électronique sur ORIC et ATMOS.110 F 

□ Naviguez sur ORIC et ATMOS.. 45 F 


Cassettes 

□ Poopy .35 F 

□ Water Panic .35 F 


Ci-joint en règlement un chèque de.F + 10 % de port. 
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0 ans THEORIC n° 14, nous vous proposions de vous dis¬ 
traire avec un programme élaborant, sur MCP 40, des 
grilles de "Mots Cachés". Pour tous ceux qui ne possè- 
pas l'imprimante, voici comment modifier le programme 
afin qu'il fonctionne directement "sur écran". 


MOTS CACHES (additif) 


Eric MISTELLET 


Enlever les lignes 4 et 220 à 260. 
Dans les lignes 290, 310, 336, 
338, 400, 420, 440 remplacer 
tous les LPRINT par des PRINT. 
Taper ensuite les lignes suivan¬ 
tes : 


ABONNES, votre indispensa¬ 
ble "laissez-passer” est l'éti¬ 
quette portant vos nom, 
adresse et numéro d'abonné, 
collée sur chaque enveloppe de 
THEORIC. 

Sans elle, vous ne pouvez pré¬ 
tendre aux conditions avanta¬ 
geuses qui vous sont réservées 
(tarif disquettes, courrier, etc.). 
N'oubliez pas de la joindre à 
chaque envoi. 


LOGICIELS DE 
GESTION FINANCIÈRE, 
COMMERCIALE ET 
DE TRAVAUX 
SUR ORIC 
CLAVIER ATMOS 
LOGICIELS DE 
DÉMONSTRATION 

LECTEUR DUO 
2 FACES DE LECTURE 
700 K de mémoire 
de masse 
Programmation en 
Overlays 

M. MISSUD 

Tél.: 94.91.47.01 
'Le Chambord" Bld. de Paris 
83200 TOULON 


* Taper-’ 

15 IF LC) 25 THEN 2HP : ?” I(1P0SSI BLE " : EDI 
T5 

260 GOTO 335 

330 PING: GOTO 340 

331 GOTO 340 

337 NEXT 

338 PRI NT”PRESSE2 UNE TOUCHE 1 ’ :GET 
333 CLS : G0T0 270 

^45 GET 

490 IF <> "N" THEN 450 ELSE CHLL. DEEKC 
DEEKC#FFFFO + l .1 


trucs et astuces 


Michel GOUX d'AUBIGNY SUR 
NERE nous propose une courte 
routine pour déplacer (SCROLL) 
vers le haut l'écran Hires, d'une 
ligne à chaque fois. Implantée ici 
en #400, elle peut être mise 
n'importe où, ce qui devrait satis¬ 
faire les utilisateurs de JASMIN 
ou MICRODISC. 

Pour scroller de 30 lignes, il suf¬ 
fit de faire : 

FOR N = 1 TO 30:CALL #400: 
NEXT 

Bien entendu, en Assembleur, ce 
sera encore plus rapide ! 


Gilles M ETAIS de SAINT-FAR- 
GEAU-PONTHIERRY nous sauve 
d'un mauvais pas : la fin d'un 
programme s'est mal chargée. A 
sa place, vous trouvez des "U U 
U... ". Il est possible de récupé¬ 
rer, si vous n'aviez pas d'autre 
copie de ce programme, le début 
du listing jusqu'à la ligne altérée. 
Pour ce faire, la recette est sim¬ 
ple : repérez le numéro de ligne 
incriminée (soit nnnn) et faites 
ensuite, en mode DIRECT : 

A= 1 281 :REPEAT :A = DEEK(A): 
UNTIL DEEK(A + 2) = nnnn: 
PRINT A 

Faites enfin : 

DOKE A,0:DOKE #9C,A + 2. 


10 FOR I =#400T0#43B : READA$ : F'OKE 1,0AL< 1 #* + Aî ) :NEXT 
20 DATAA2, C7, A9, AO. 85.04,95.Oi. A9,23.65.03,A9.00. B5,05. AO.00. B1,03 
30 DATA91.05,CB, CO, 28,DO, F7, 13,A5,03,69,2B,85,03,A5,04,69,00,85,04 
40 DATA18,A5,05,69,28,85,05.A5.06,69,00,85,06,CA,D0,D3,f>0 
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2490 F 


Vente Informations Services Micro-Ordinateurs 

^Hccra-arcCtKCiteurd ^cmitiaux 

94, bd Benmu relut» - 76011 Put» 

Métro Bastille ou Chemin Vert 

De 10 h à 20 h sauf dimanche et lundi 


iecttp* 

W \\UII / 


GARANTIE 


NOUVEAU I CREOITINFORMATIQUE - rèponss an 4» hauras après sxaman du dossisr dans touta la Francs 

Logiciels + Accessoires pour les appareils cités aux prix VISMO 

NOMBREUX LOGICIELS - PROGRAMMES ET JEUX VISMO ^ 


DUR Ut bUMMARUt (••n» risque) IretaarMriVISSO. 
84. Boulevard Beaumarchais 75011 PARIS 

Nom __Prénom _ 


Quantité 


Désignation 


Pn* total TIC 


Code Posta* 


Po*i groiuii pou' • OO 3000 t O OCOqi »Ou» Semom 


Signature 


□ Desne-recevoir catalogue 

20 F (remboursable a lo V* commande) 




















LISTAGE DE LEPROM 

A. VIAUD 


L es possesseurs du MICRODISC ORIC savent que celui-ci 
contient une EPROM. Cette mémoire se trouve sélectée 
au reset général du système, c'est-à-dire quand on 
appuyé sur le petit poussoir rouge derrière le drive. Cette opé¬ 
ration s'effectue à la mise sous tension, ou tout simplement 
quand l'ORIC est "planté". Il est intéressant de connaître le 
contenu de cette EPROM si on veut approfondir la connais¬ 
sance de la machine, en particulier des séquences d'initialisa¬ 
tion du système et chargement du DOS, ou bien pour suppléer 
à l'absence de documentation fournie. 


Le programme proposé a pour 
objet l'accès au contenu de 
l'EPROM. Il fonctionne avec une 
routine en langage machine qui 
vous est livrée désassemblée par 
ailleurs. Venons-en au détail. Le 
programme Basic implante la rou¬ 


tine en langage machine après 
avoir positionnné le HIMEM. 
Celle-ci effectue alors les opéra¬ 
tions suivantes : 

— suppression des interruptions, 

— commutation sur l'EPROM, 

— recopie de l'EPROM en 


mémoire vive à partir de l'adresse 
#5000, 

— commutation sur la ROM, 

— autorisation des interruptions, 

— saut au Basic. 

Il suffit alors à chacun de charger 
son moniteur et de lister le 
contenu mémoire depuis 
l'adresse # 5000. 

Pour le désassemblage, il semble 
au premier abord que l'entrée 
dans l'EPROM se fasse en 
#EB7E puisque c'est l'adresse 
que l'on trouve dans le vecteur 
#FFFC, c'est-à-dire en #6FFC 
pour nous. Mais j'attends dans 
les prochains THEORIC les résul¬ 
tats de "décortiquage" de 
l'EPROM que les passionnés ne 
vont pas manquer d'effectuer... 


64000L 


4000 7S 

SE I 

4001 R9 7F 

LDA #$7F 

4003 8D 0E 03 

STA Ï030E 

4006 A3 00 

LDA #$00 

4008 8D 14 03 

STA $0314 

400B A3 00 

LDA #$00 

400D 85 00 

STA $00 

400F 85 02 

STA $02 

4011 A3 E0 

LDA #$E0 

4013 85 01 

STA $01 

4015 A3 50 

LDA #$50 

4017 85 03 

STA $03 

4019 A0 00 

LDY #$00 

401B B1 00 

LDA ($00), Y 

401D 91 02 

STA ($02), Y 

401F C8 

INY 

4020 D0 F9 

BNE $401B 

4022 E6 03 

INC $03 

4024 E6 01 

INC $01 

4026 D0 F3 

BNE $401B 

L 

4028 A3 B2 

LDA #$B2 

402A 85 04 

STA $04 

402C A3 F8 

LDA #$F8 

402E 85 05 

STA $05 

4030 A3 02 

LDA #$02 

4032 8D 14 03 

STA $0314 

4035 53 

CLI 

4036 6C 04 00 

JflP ($0004) 


1000 

REM 

EPROM 


1010 




1012 

' RE 1 

/1S10N DU 

29/09/85 

1013 

J C0P* 

'RIGHT A. 

VIAUD 

1020 

t 



1021 

HIMEM#3FFF 


1030 

RESTORE 


1040 

FOR 

1=0 TO 56 


1050 

READ 

J 


1060 

FOKE 

#4000+1 , 

J 

1070 

NEÎÎT 

I 


1075 

•* 



1030 

DATA 

#78,#A3, 

#7F,#8D,#0E,#03 

1030 

DfiTR 

#A9,#00, 

#8D,#14,#03 

1100 

DATA 

#A9,#00, 

#85,#00,#85,#02 

1110 

DATA 

# A 9, # E 0, 

#85,#01,#A9,#50 

1120 

DATA 

#85,#03, 

#A0,#00,#B1,#00 

1130 

DATA 

#91,#02, 

#C8,#D0,#F9 

1140 

DATA 

#ES,#03, 

#E6,#01,#D0,#F3 

1150 

DATA 

#A3,#B2, 

#85,#04 

1160 

DATA 

#A3,#F8, 

#85,#05 

1165 

DATA 

#A9,#02, 

#8D,#14,#03 

1167 

DRTA 

#53 


1170 

DATA 

#bC,#04, 

#00 

1180 

* 



1185 

CALL#4000 


1200 

t 



1210 

END 
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20, rue de Montreuil - 94300 VINCENNES - “S* (1) 43.28.22.06 

du mardi au vendredi :10h30à13h-15hà19h — le samedi : 10 h 30 à 19 h 

REVENDEUR OFFICIEL AGRÉÉ ORIC-FRANCE 


GRAPHISCOP II 

Conçue et fabriquée en France, la tablette gra¬ 
phique à digitaliser "GRAPHISCOP II" vous per¬ 
mettra de dessiner à la fois sur un papier et 
à l'écran en utilisant la résolution graphique 
maximale de votre micro-ordinateur. 
"GRAPHISCOP II" est livrée avec un boîtier 
interface connectable à votre micro, un manuel 
d'utilisation, un logiciel sur cassette ou disquette. 
La partie principale du Source est en Basic pour 
permettre à l'utilisateur d'a adjoindre de nouvelles 
fonctions. 


l’ensemble 

3490 F 


JASMIN 2 

Le lecteur de disquette que votre Oric préfère. 
Permet, entre autres, de recopier sur disquettes 
les logiciels (même plombés) sur cassette. 

□ lecteurdoubletête. 2690 F 


"Il ne lui manque que la parole", synthé. V0C1 la lui donne ! 
Très performant ce synthétiseur vocal va vous permettre 
de rendre votre ordinateur plus bavard qu'un politicien en 
campagne ! 

□ synthétiseur vocal.499 F 


LOGICIELS CASSETTES 


nouveau 


□ businessman. 

□ RDV terreur. 

□ mission delta. 

□ terminus. 

□ millionnaire. 

□ master paint. 

□ hades . 

□ cité maudite. 

□ macadam bumper... 

□ triathlon. 

□ saga . 

□ compilateur graphiq.. 

□ cybermen . 

□ bugs buster. 

□ candy hang . 

□ chess . 

□ cours de solfège ... 

□ cubi . 

□ dambuster. 

□ damsel in distress .. 

□ don't press the letter 

□ draughts. 

□ elektro storm. 

□ xénon 3 . 

□fantasy . 

□ frigate commander .. 

□ genesis. 

□ ghost gobbler. 

□ green cross toad ... 

□ gubbie. 

□ hunchback . 

□ cycles. 

□ invader. 

□ island of death. 

□ playground 21 . 

□ probe 3. 

□ reverse . 

□ space wall. 

□ superfruit. 

□ the quill . 

□ trick shot. 

□ ultra. 

□ xénon 1 . 

□ zorgon . 

□ 1815. 

□ meurtre gde vitesse 

□ atlantis. 

□ hyperspace 4 . 

□ durendal. 

□ challenger . 

□ cobra pinball . 

□ stress. 

□ mots croisés . 

□ polyfichier . 

□ bibliofiche . 

□ carnet adresses ... 

□ facturation. 

□ finances. 

□ tortue logic. 

□ ordi-tiercé . 

□ basic turbo. 

□ le lièvre et la tortue 

□ formule 1. 

□ kit écran. 

□ monopolic . 

□ affaire en or. 

□ world war 3. 


□ le trésor du pirate .... 

□ colorie. 

□ 3 D fongus. 

□ aigle d'or . 

□ 3 D munch. 

□ annuaire. 

□ assemb. symboliq. 

□ assimil (anglais). 

□ challenger voile. 

□ crocky. 

□ diamant île maudite ... 

□ doggy . 

□ éditeur musical. 

□ flipper. 

□ frelon. 

□ gengraph. 

□ hubert. 

□ initiation CAO. 

□ intox et zoë . 

□ logo VI. 

□ lorigraph. 

□ manoir dr génius. 

□ mystère kikekankoi ... 

□ retour dr génius. 

□ super jeep . 

□ tic-tac . 

□ vision. 

□ calcul mental. 

□ star . 

□ vortex. 

□ budget familial (loriciel) 

□ loritel. 

□ arsène lapin. 

□ roland garros. 

□ scuba dive. 

□ the hobbit. 

□ waydor. 

□ starter 3 D. 

□ calcul en 4e. 

□ categorie. 

□ détective story. 

□ don juan. 

□ driver. 

□ fire flash . 

□ trident de neptune .... 

□ yi king . 

□ LM plus. 

□ locus. 

□ mission impossible .... 

□ multicalc (core). 

□ optimum. 

□ oriscribe. 

□ panic. 

□ scuba dive . 

□ styx . 

□ transat one . 

□ zoolympics. 

□ le secret du tombeau .. 

□ tyrann. 

□ rabbit. 

□ cobra . 

□ montsegur . 

□ crypt show. 

□ dangereusement vôtre . 

□ clavidact. 

□ dialogue. 


MODEM 

Votre ORIC s'ouvre sur l'extérieur. Il "discute' 
avec ses semblables et accède au réseau "minitel" 
Fourni avec interface intégrée et logiciel 
□ modem . 1490 f 


□ GRAPHISCOP II (avec interface). 1490 F 


Interface tous jeux 

Grâce à cet interface programmable vous utili¬ 
serez vos joysticks avec tous vos logiciels de jeux. 
□ interface tous jeux. 350 F 


L'IMPRIMANTE PERSONNELLE 
COULEUR "OKIMATE 20" 

L’OKIMATE 20 est la première imprimante personnelle dans sa gamme de prix 
à offrir une véritable impression couleur Une tète d’impression à 24 éléments crée 
plus de 100 nuances d'une définition et d’une netteté exceptionnelles 
Interface centronic r 

okimate 20 2950 F 


Rallonge Péritel ^ 

Ne soyez plus "collé” à l'écran ! 
□ rallonge . 95 F 


AMPLIBUS JASMIN 

Amplifie les signaux du bus permettant ainsi la 
connexion de 3 interfaces 
□ ampli bus . 350 I 


Carte E/S 

Vous permet de commander moteur, relais, lampe, 
sonnerie, projecteur 

□ carte 8 E/S. 395 F 


Interrupteur 

Ne courrez plus le risque de faire sauter la ROM 
□ interrupteur d'alimentation . 80 F 


Carte E/A 

Pour transformer votre Oric en centrale de me¬ 
sures. Possibilité de brancher plusieurs cartes 
□ carte 8 E/A.. 395 F 


□ quickshot 2 . 140 F 

Grâce à cet interface vous pourrez brancher jusqu'à 3 appareils 
en sortie péritel sur votre moniteur ou téléviseur (câble rac¬ 
cord non fourni) interface multi-péritel.495 F 

Câble péritel male-femelle : nécessaire pour connecter l'inter¬ 
face multi-péritel il peut aussi être utilisé comme rallonge 
péritel pour tout appareil. 

□ rallonge péritel (1,20 m) 235 F 


Magnétophone 

Ce magnétophone spécialement conçu pour les 
micro-ordinateurs vous évitera bien des soucis. 
Entrée DIN ou Jack. Niveau réglable. Témoin 
sonore et lumineux. Alimentation intégrée 
□ magnétophone. 350 F 


Carte mère 

Grâce à ce câble vous pourrez connecter 3 inter¬ 
faces et garderez la possibilité de brancher un 
lecteur de disquettes 

□ carte mère 3 slots.205 F 

□ même modèle mais 1 slot.95 F 


LIVRES 

□ programmmes en lang. mach. 

□ guide pratique. 

□ découverte de l'oric. 

□ oric à l'affiche . 

□ oric atmos pour tous . 

□ 52 prog. pour tous. 

□ clefs pour oric atmos. 

□ cahiers du basic . 

□ l'assembleur de l'atmos. 

□ 102 prog. pour atmos. 

□ interfaces pour oric. 


LOGICIELS DISQUETTE (JASMIN) 

□ assembleur . 

□ easy text . 

□ multifich. 

□ cale . 

□ forth. 

□ jasmitel . 

□ mathégraph . 

□ finances. 

□ conquérants. 

□ allien . 

□ zonga . 


Imprimante Smith Corona Fastext 80 
80 caract./sec., impression bidirectionnelle, 
entraînement par friction, interf. contronic, buffer 
intégré, écriture normale ou condensée 
□ Fastext 80 . 1995 F 


Mannesmann MT 80S 

L'imprimante "top niveau" en informatique fa¬ 
miliale 100 caractères par seconde. Papier 
normal ou informatique. Entraînement par 
friction ou traction. Si vous recherchez une 
qualité "courrier", la MT 80S vous donnera 
plus que des satisfactions tant pour le texte 
que pour le graphisme. 

□ Mannesmann MT 80S. 3350 F 


Câble Imprimante 

Vous permet de connecter votre Oric à n'importe 
quelle imprimante au standard "centronic" 

□ câble imprimante. 160 F 


Imprimante MCP 40 

L'imprimante 4 couleurs aux couleurs d'ORIC ! 

□ imprimante MCP 40 990 F 

Cassette spéciale micro 

□ les 5 .45 F 

□ les 10. 80 F 


Moniteur 12'' 

Splendide moniteur 12" monochrome vert ou 
ambre. Un modèle professionnel à un prix grand 
public. 

□ moniteur12"vertouambre. 995 F 

□ moniteur couleur . 2750 F 


Câble Moniteur 

Pour brancher votre Oric à un moniteur mono¬ 
chrome 

□ câble moniteur. 95 f 


□ disquette vierge 3 pouces 


COMMENT COMMANDER : 

- Cocher le(s) article(s) désiré(s) ou faites-en une liste sur une feuille à part. - Faites le total + frais de port (20 F pour achats inférieurs à 500 F, 40 F de 500 à 1000 F. 60 F pour tout achat supérieur à 1000 F). 

NOM : _ PRÉNOM :_ TEL. :_ 

ADRESSE : _CODE POSTAL : _VILLE : _ 


Mode de paiement : □ chèque □ mandat □ contre-remboursement (prévoir 20 F de frais) 

envoyer le tout à : ORDIVIDUEL 20, rue de Montreuil 94300 VINCENNES 


réseau 


Tous nos prix sont indicatifs, et en fonction des stocks. 












































































































































































































PETITES ANNONCES 


La place réservée aux petites annonces est 
limitée. En conséquence, celles-ci passent 
dans leur ordre d'arrivée. Par contre, les peti¬ 
tes annonces farfelues sont systématique¬ 
ment rejetées... De même, comme il est peu 
probable qu'il existe des ''généreux dona¬ 
teurs" de matériels ou de logiciels, les peti¬ 
tes annonces faisant appel è ces philantro- 
pes ne seront insérées que si la place libre 
le permet. 

Seront refusées toutes les annonces visant 
è vendre ou échanger des listes ou copies de 
logiciels non garantis "d'origine", ainsi que 
toute annonce incitant au piratage. 

En conséquence, réfléchissez bien avant 
d'envoyer vos textes. 

Les petites annonces doivent impérativement 
nous parvenir sur la grille (découpée ou pho¬ 
tocopiée), le texte étant rédigé à raison d'un 
caractère par case. 

Enfin, toute annonce non accompagnée de 
timbres ne sera pas insérée. 


Achète prise péritel (alimentéel pour ATMOS pas 
trop chère. Nicolas au 50.71.50.43 (aux heures de 
repas). 

Vends THEORIC n° 1 à 5, n° 7 à 9, n° 12 à 14 
et donne le Hors Série août-septembre 85 : 200 F 
le tout. M. LAURENCE, té!.: 23.68.14.36 après 
19 h. 

Achète THEORIC 1, 2, 5 écr. prix franco. M. 
ROSENZWEIG, 46 av. du Château, 94300 VIN- 
CENNES, réponse à tous et timbre remboursé. 

Vends originaux pour ORIC (80/100 F) Tyrann, 
Secret Tombeau, Aigle d'Or, Triathlon, Star, Saga, 
Survivor, D. Force, tél. : 40.48.15.04. 

Vends Modem Digitelec pour ORIC ou ATMOS avec 
logiciel : 1000 F. Tél.: 27.75.17.60. 

Achète roman Voyante de Bernard Lenteric, paru 
aux Editions O. ORBAN 1982. Eddy LEBLANC, 1 
rue des Grès, 77130 MONTEREAU. 


Vends Saga, Tyrann, Frelon, Aigle d'Or, Cité Cris¬ 
tal, Super Jeep, Secret Tombeau : 400 F le tout. 
M. LEBLANC, 1 rue Grès, 77130 MONTEREAU. 

Vends ATMOS (1 an 1/2) + Jasmin (1 an) + 100 
jeux sur disquettes + 1 50 jeux K7 dont certains 
déjà sur disques + écran ambre + meuble + 
magnéto + 12 livres ORIC et ATMOS, etc. : 
4500 F sans les disquettes, 6000 F avec. Tél.: 
47.09.39.35 David à Paris. 

Vends pour ORIC ou ATMOS modem Digitelec 
2000 : 1000 F. Moniteur vert Samwoo : 1000 F. 
Synthé vocal : 300 F. Philippe au 48.66.99.16. 

Vends cassettes de jeu pour ORIC-ATMOS, moitié 
prix (75 F). Ecrire à M. GUERY, 2, square Georgette 
Agutte, 95210 SAINT G R ATI EN. 

Achète logiciel anglais intitulé "Composer" édidé 
par Severn Software pour ORIC-1. Tél.: 
30.50.61.01, poste 4274. 

Vends imprimante Tandy CGP 11S (MCP 40) état 
neuf : 800 F. François BIGEY, BP 103, 81003 ALBI 
Cédex. 

Sacrifie Jasmin : 2000 F, 8 E/S : 250 F. Synthé : 
350 F. Graphiscop : 980 F. Alain LADMIRAL, 40 
rue J. Jaurès, 91130 RIS-ORANGIS, tél.: 
69.06.81.79. 

Vends ORIC-1 déc. 1983 + alim. + Péritel. Impri¬ 
mante, jeux, livres : 1 500 F. Bernard MARAUD, 8 
av. Anatole France, 92110 CLICHY, tél.: 
47.31.62.84 après 18 h. 

Vends ATMOS 48 k : 790 F. + transfor + péritel 
+ livres + 60 logiciels, le tout en parfait état. Tél. 
région parisienne : 39.52.40.19. 

Cherche possesseur Discoric pour échange idées 
et logiciels. Vends ATMOS : 790 F. Vends ou 
échange logiciels région parisienne. Tél.: 
39.52.40.19. 

Vends ORIC-ATMOS 48 k (10/84, tbe) péritel 
complet : 490 F (cause double emploi). Cherche 
tout programme sur Microdisc (Sédoric). Recher¬ 
che manuel d'utilisation de l'imprimante Seikosha 
GP 250X pour utilisation graphique avec ATMOS. 
V. CAUQUIL, 38 bis rue des Brus, 81000 ALBI, tél.: 


63.54.73.63. 

Vends ORIC-1 + Jasmin 2 + Multifich + 60 logi¬ 
ciels sur disq. + ROM ATMOS + modulateur N/B 
+ manuels : 3500 F. C. FRANÇOIS, 63 HLM Le 
They, 04000 DIGNE. 

ATMOS cherche utilitaires et jeux + plans synthé 
vocal et progs pour parler. D. SEYARET, 14 che¬ 
min du Brotillon, 69310 PIERRE BENITE. 

Vends programmes ORIC-1 environ 15 F par jeu. 
Envoyer K7 + pas désirés à Frédéric INFARNET, 
Rue de Gardanne, 83230 BORMES LES MIMOSAS. 

Achète THEORIC numéros 1 et 2. Tél.: 
27.91.23.62 ou écrire à M. TRUANT, 767 rue Jean 
Jaurès, Wandignies Hamage, 59870 MARCHIEN- 
NES. 

Vends ATMOS 48 k + câbles et magnéto +12 
K7 + manuels et revues + nombreux jeux tapés : 
1500 F. Tél.: 47.41.56.72, 92380 GARCHES (le 
soir). 

Vends ORIC-1/ATMOS (2 tomes) + TV couleur 
36 cm + imp GP 500A + synt. text. mém. + 
pgms + THEORICS : 4000 F. V. MOREAU, 5 rés. 
la Madeleine, 78460 CHEVREUSE. 

Cherche interface TV ORIC-1/ATMOS, prog. édu¬ 
catifs. Ecrire ou tél. à J.P. PENIN, 39 rue J. BONTE, 
62840 LAVENTIE, tél.: 21.66.21.53. 

Vends cause double emploi imprimante graphique 
Seikosha GP 500A, état neuf, sous garantie. P. 
CREPY, tél.: 20.07.21.37 après 1 9 h 30. 

Achète ORIC-1 48 k clavier seulement. Tél.: 
64.00.03.01 (Adrien) tous les jours sauf vendredi 
et dimanche. 

ORIC-ATMOS cherche contacts pour échanges 
divers. Joël FAROUX, 3 rue Bouzniquah, RABAT, 
MAROC. 

Cherche amteur pour aide à la prog. ATMOS- 
JASMIN 2. Tél.: 78.62.76.27 ou 78.69.09.26 
(après 20 h). 

Vends ATMOS 48 k + magnéto + 7 K7 + livres 
+ revues : 1500 F à débattre. Tél.: 28.05.95. 


ANNONCEZ-VOUS! 

les petites annonces et les messages 



oo Coupon à renvoyer accompagné de 3 timbres à 2,20 F à : 

f— SORACOM, 10 Avenue du Général de Gaulle, 35170 BRUZ 
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Electronique sur AMSTRAD 
P. BEAUFILS 
Electronique sur MSX 
P. BEAUFILS 


TECHNIQUE 


Propagation des ondes, tome 1 

Serge CANIVENC, F8SH 

Un univers à découvrir 165 F 

Propagation des ondes, tome 2 

Serge CANIVENC, F8SH 

Cet ouvrage encore plus important 

traite des tous les modes de 

propagation en UHF 253 F 

Technique de la BLU - 2* édition 

G. RICAUD, F6CER 

Approche pratique de la BLU 95 F 

Concevoir un émetteur expérimental 

P. LOGLISCI 

Concevoir soi-même son émetteur ! 69 F 

Synthétiseurs de fréquence 
M. LEVREL 

Se familiariser avec les 

nouvelles techniques 125 F 

Interférences radio - des solutions 

F. MELLET et K. PIERRAT 

Des solutions à vos problèmes 

de brouillage 35 F 

Télévisions du monde 

P. GODOU 

Un catalogue de mires 

et une longue expérience 

mis à votre disposition par 

l'auteur 110 F 

Le radioamateur et la carte QSL 

Préfixes et QSL-managers et 

bureaux dans le monde 

72 pages 15 F 

QSO en radiotéléphonie 

français-anglais 

L. SIGRAND 

Un aide-mémoire pour des 

QSO plus faciles 25 F 

Cours de lecture au son 

Les cassettes avec livret 195 F 

La-réception des satellites météo 

Loïc Kuhlmann 

Photos, schémas, montages 

Comment réaliser une station 145 F 

MEGAHERTZ broché n° 3 

Ida 14 à 19) 70 F 


INFORMATIQUE 


Communiquez avex ZX81 

E. DUTERTRE et D. B0N0M0 

2* édition 


90 F. 


Communiquez avec ORIC-1 et ATMOS 

E. DUTERTRE, D. BONOMO .145 F 

Mystères du Laser 
Denis BOURQUIN 

Connaître à fond sa machine 148 F 

Mystères d'Alice ou la pratique du 6803 

A. BONNEAUD 

Une des meilleures critiques de la presse 151 F 

Mieux programmer sur ATMOS 
M. ARCHAMBAULT 

Tout un programme 110 F 

Interfaces pour ORIC-1 et ATMOS 
M. LEVREL 

Rendre son ORIC encore plus 

performant 59 F 

Apprenez l'électronique sur ORIC ATMOS 

P, BEAUFILS 

Mieux voir les phénomènes électroniques 110 F 


COLLECTION 

POCHE 


Jouez avec Hector 

E. DUTERTRE 

48 F 

Jouez avec Aquarius 

L. GENTY 

45 F 

Naviguez sur ORIC et ATMOS 

E. JACOB et J. PORTELLI 

45 F 

Extensions du ZX81 

E. DUTERTRE 

48 F 

Jouez avec AMSTRAD 

KERLOCH 

48 F 

MEGAHERTZ Hors Série 

Informatique 

30 F 

Transat Terre Lune 

3 réface de D. BAUDRY 

20 F 

Manœuvre du catamaran de croisière 

SEGALA 

45 F 

Jouez avec M05 

E. DUTERTRE 

Collection poche 

40 F 


PRESSE 


Communiquez avec AMSTRAD 

D. BONOMO et E. DUTERTRE 

90 F 

CPC Revue AMSTRAD 

Le numéro 

19 F 

Mieux programmer sur AMSTRAD 
M. ARCHAMBAULT 

85 F 

(Mensuel) abonnement 1 an 

180 F 

Plus loin avec le X07 


THEORIC Revue ORIC/ATMOS 


Michel GAUTIER 


Le numéro 

30 F 

Un titre pour un programme ! 

85 F 

(Mensuel) abonnement 1 an 

270 F 



Réédition des programmes du livre 

Communiquez avec votre ZX81 150 P 

Cassette programmes Communiquez avec AMSTRAD 190 F 

Disquette programmes Communiquez avec AMSTRAD 250 F 

Cassette programmes Communiquez avec ORIC et ATMOS 190 F 


Précisez ORIC-1 ou ATMOS à la commande. 


Adressez vos commandes à : 
SORACOM, La Haie de Pan, 35170 BRUZ 

(Règlement comptant à la commande + port 10 %). 
















Ventes Informations Services Micro-Ordinateurs 

84, Boulevard Beaumarchais - 75011 PARIS 

métro Bastille ou Chemin Vert 

De 10 H. à 20 H. sauf Dimanche et Lundi 


TEL. : 16 (1) 43.38.60.00 


LA REVOLUTION INFORMATIQUE A LA BASTILLE 



LA BETE A COMMUNIQUER 

(100 % compatible ORIC 1 et ATMOST 



s° 


Cartouche 

ROM 

RAM 


Lecteur 

Disk 


Imprimte 

Serie-parallèle 




& 


AM 

* t 


1 




EN DEMONSTRATION 


VIS M O 



BORNE DE COMMUNICATION (7 logiciels intégrés) 


- Dialogue entre deux Minitels 

- Serveur VIDEOTEXT 

- Créations pages VIDEOTEXT 

- Courrier Electronique 


- Vidéo Répondeur 

- Transmissions entre deux ordinateurs 

- Emulation Minitel 


prix indicatif au 31/12/85 livré avec lecteur de Disk 3 pouces 


NOUVEAU ! CREDITINFORMATIQUE - réponse en 48 heures après examen du dossier dans toute la France 


Pour détaxé 
à l'exportation 
Service Commande 
Express - Crédit 
Réclamations 


TELEPHONE 


Logiciels -F Accessoires pour les appareils cités aux prix VISMO I 4338.60.00, 

NOMBREUX LOGICIELS - PROGRAMMES ET JEUX VISMO ^ 



BON DE COMMANDE (sans risque)! rctmroer i VISMO. 

84, Boulevard Beaumarchais 75011 PARIS 

Quantité 

Désignation 

Prix unit ÏTC 

Prix total TTC 











• 



vme 






MODE DE 

REGlEMENI 

Partie ipation irais de port e' 0 emoonage 30 l 



CCP |Oint 

Mondai leflre iomr □ 

Conlre remboursement □ 

Pon groiuii pour - ae 3000 f a oenot saut Sema™ 

□ Desire recevoir coioiogue 

Contre remboursement • 30 f 


VISMO EXPRESS: livraison dons toute 10 nonce Nous enco-ssons vos chèques a 1 e«oea«'ion oe »onecomrr 


inje iO"no'S o 'O ’ecev - 









































